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ABSTRACT 


The helicopter has been used since its early development for external transport of 
large or bulky loads to small austere locations. Among the problems encountered as lift 
capability and airspeeds increased was that of divergent load oscillations due to load 
aerodynamics 

The most problematic are the single point external loads displaying unsteady 
aerodynamics and coupled yaw-pendulum modes accounting for the instability of cargo 
containers. However, a lack of simulation models for unsteady aerodynamics renders 
simulation and analysis incapable of predicting the critical speeds at which such loads 
become unstable. This thesis attempts to provide a stabilization system for controlling 
the yaw degree of freedom for the single point external load. 

Empirical models of the yaw resistance at the hook and of the yaw moments due 
to vortex shedding were developed and tuned using flight test data and lab measurements. 
Several load stabilization systems were considered, and a horizontal and vertical tail fin 
assembly was selected This thesis presents simulation model improvements required 
for a simulation to match flight results for the load yaw, along with the design, modeling 
and optimization of the fin stabilization system, and a simulation assessment of the 
envelope expansion obtained from both passive and active stabilization. 


V 



THIS PAGE INTENTIONALLY LEET BLANK 


VI 



TABLE OF CONTENTS 


I. INTRODUCTION.1 

A. HISTORICAL.1 

B. LOAD STABILIZATION.1 

C. PREVIOUS RESEARCH.2 

D, STABILIZATION DEVICES.3 

E, PURPOSE OF RESEARCH.3 

F, SCOPE OF CURRENT THESIS WORK PERFORMED.4 

II. BLUFF BODY FORCES AND MOMENTS.7 

A. OVERVIEW.7 

B. HOVER AERODYNAMICS.7 

C. FLIGHT AERODYNAMICS.8 

1, Wind Tunnel Data.8 

2, Steady Aerodynamic Analysis.8 

3, Unsteady Aerodynamics Analysis.13 

D. YAW RESISTANCE AT THE HOOK.14 

1. Hover Corrections.18 

2, Model Validation.18 

III. STABILIZATION DEVICE.21 

A. OVERVIEW.21 

B. MODES OF INSTABILITY.21 

C. DESIGN CONSIDERATIONS.21 

D. APPLICATION.22 

E. SELECTED STABILIZATION DEVICE.23 

IV. STABILIZATION PROGRAM DEVELOPMENT.25 

A. FLAT PLATE AERODYNAMICS.25 

B. STABILIZER AERODYNAMIC MODEL.26 

1. Symbols.27 

2. Pre-Stall.28 

3. Cross Flow.28 

4. Stall Transition.28 

5. Forces and Moments in Load Body Axes.30 

6. Illustrative Results.31 

C. FORTRAN MODULE.34 

V. RESULTS AND CONCLUSIONS.35 

A. SIMULATION RESULTS.35 

B. CONCLUSIONS.41 

C. FURTHER RESEARCH.41 

LIST OF REFERENCES.43 

vii 









































APPENDIX A YAWDOF3.M.47 

APPENDIX B CONEX4A,F.53 

APPENDIX C SLINGTORQ.F.81 

APPENDIX D YAW DOF CORR PLOTS.85 

APPENDIX E LOADSTAB.M.91 

APPENDIX F STABILIZER FORCES PLOTS.99 

APPENDIX G LOADSTAB.F.105 

APPENDIX H WIND AXIS STAB FORCES.109 

APPENDIX I LOADSTAB.DAT.113 

APPENDIX! GHSLMC.F.115 

APPENDIX K GHSL INIT,F.129 

APPENDIX L NRT UNC3_OUT.F.133 

APPENDIX M GHSLDAT.137 

APPENDIX N GHSL DAT.F.141 

APPENDIX O SLVARS.CMN.151 

APPENDIX P STABILIZER RESULTS.161 

INITIAL DISTRIBUTION LIST.189 


viii 




















LIST OF FIGURES 


Figure 1. Bluff Body Un-separated Flow Aerodynamic Forces.9 

Figure 2. Bluff Body Separated Flow Aerodynamic Forces.10 

Figure 3. Technion Wind Tunnel Data vs. Theoretical Model.12 

Figure 4. Relative Wind Model.14 

Figure 5. Flat Plate Computational Regions.25 

Figure 6. Load Stabilization System.24 

Figure 7. Sling Wind-Up Test at 10 Revolutions.16 

Figure 8. Height vs. Rotation.17 

Figure 9. Torque vs. Rotation.17 

Figure 10. Yaw Motion Corrections Verification, Swivel Case.19 

Figure 11. Yaw Motion Corrections Verification, Swivel Case.19 

Figure 12. Yaw Rate Validation Plots.20 

Figure 13. Flow Regimes for Load Stabilization Airfoil.26 

Figure 14. Effect of Stabilizer on Load Yaw Motions.37 

Figure 15. Passive Stabilization System Damping Ratio.38 

Figure 16. Active Stabilization system Damping Ratio.38 

Figure 17. Yaw Rates for Selected Active Stabilization System.39 




















THIS PAGE INTENTIONALLY LEET BLANK 


X 



LIST OF TABLES 


Table 1. Load Parameters.23 

Table 2. Stabilization System Comparison.23 

Table 3. Control Surface Flow Regimes.27 

Table 4. Stabilizer Parameters.31 

Table 5. Speed Envelope Expansion.40 








THIS PAGE INTENTIONALLY LEET BLANK 



ACKNOWLEDGMENTS 


The author would like to acknowledge the financial support of the Army/NASA 
Rotorcraft Division, for providing the necessary travel and lodging funds for an 
internship at the Ames Research Center, and many trips between Monterey and San Jose. 

Special thanks go to my thesis advisors. Dr. E. Roberts Wood and Dr. Mark 
Tischler for their expert guidance and insights. Also to Mr Luigi Cicolani for his untiring 
guidance in the conduct of this research and outstanding assistance in the editing of this 
thesis. 

Lastly, I thank my wife and daughters, who allowed me the time to conduct the 
internship and whose support was essential to the research’s successful conclusion. 



THIS PAGE INTENTIONALLY LEET BLANK 


XIV 



I. INTRODUCTION 


A, HISTORICAL 

The helicopter has been used since its early development for external transport of 
large or bulky loads to small austere locations. For the military it has been essential in 
rapidly providing supplies not only for combat but also for natural disasters where 
landing locations are small and isolated. In addition the ability of the helicopter to 
transport loads externally has changed the face of construction, logging and fire fighting 
by providing a mobile heavy lift capability. 

As helicopters improved, their lift capability and airspeeds increased to encounter 
the problem of load aerodynamic instability. According to various published works [Ref 
1-4] aerodynamic instabilities can occur at moderate forward airspeeds well below the 
power-limited airspeed of today’s helicopters. 

In order to fly a helicopter safely with a slung load (Helo/SL) the handling 
qualities and maximum forward speed of the combination has to be determined. This has 
normally been done by fiight-testing of the Helo/SL and has led to millions of dollars 
being spent by the military and industry to certify new loads and cargo hooks. 

Wind tunnel studies [Ref 5] shows that many loads become unstable at airspeeds 
well below a helicopter’s power limited speed. This restriction severely hampers a 
helicopter’s ability to rapidly re-supply time critical situations such as humanitarian relief 
or fire fighting where needed supplies may be a considerable distance away. 


B, LOAD STABILIZATION 

The simplest, most popular and problematic external load suspension system is 
the single point configuration. From the early use it became apparent that a method of 
stabilizing this configuration to allow the helicopter to fly at higher airspeeds would be a 
great improvement to the Helo/SL. With no inherent yaw stabilization the single point 
external load it displays potentially dangerous yaw to lateral coupling which leads to 
pendulous oscillations, load helicopter contact, load jettison and even loss of the 
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helicopter or life can be controlled, greatly improving the safety and speed of the 
Helo/SL operations. 

In addition an accurate, validated simulation would allow various loads to be 
checked with a variety of sling configurations or even with load stabilization devices to 
determine the optimum configuration. This would allow for a reduction in the flight test 
time required to certify loads and would improve safety and training for external load 
operations. 


C. PREVIOUS RESEARCH 

Historically slung load stabilization has been approached in three basic methods; 
altering the original control systems of the helicopter, altering the geometry and by 
attaching various stabilization devices directly to the load. 

Altering the original control systems of the helicopter such as altering the 
Augmented Flight Control System control laws to include feedback of yaw motions and 
have shown limited success [Ref 6] but adds an additional level of complication and 
concerns for flight safety. 

Altering the sling configuration such as the flight test of the active arm 
stabilization system developed by Boeing [Ref 7] has shown promising results but adds 
considerable bulk and weight when added to existing aircraft. This method appears to be 
most promising if it is incorporated during the design of the next generation of heavy lift 
helicopters. 

Attaching various stabilization devices directly on the load such as the early 
experimentation with drogue shoots and flow diverters has been frequently proposed and 
studied and has shown promising results. This method of stabilization is a logical 
approach since these devices attack the source of the instability directly, namely the load 
aerodynamics and do not require modifications of flight control systems. 
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D, STABILIZATION DEVICES 

Proposed load stabilization devices have included a rotating wheel mounted on 
the load to augment stability [Ref 8] and active jet controls mounted on the helicopter’s 
lower pennant hook [Ref 9] and load shape modifications [Ref 10]. While all of these 
methods show some improvement in theoretical analysis, from the practical standpoint 
the increased weight and complexity does not appear to make these methods practical at 
this time 

Liu [Ref 10] examined the effects of changing load stability parameters, which 
can be done by adding fore and after body flow directors or by adding weight to the load. 
His analytical results showed a limited effect on load stability and since these types of 
stabilization devices are very load specific, their practicality is also limited. However Liu 
also showed that the most significant increase in stability was achieved by reducing the 
coefficient of yaw due to beta This can be done by adding fins to the load. 

Further studies by Mtheson and by Gera and Farmer [Ref 11,12] showed that controllable 
fins could provide even greater load stability than static fins. This appears to be the most 
promising and practical approach and was chosen for this research. 


E. PURPOSE OF RESEARCH 

Slung load research at NASA Ames research center in single point suspension 
systems have been conducted since 1995 under a Memorandum of Agreement between 
the United States and Israel [Ref 13]. This research on rotorcraft aeromechanics and 
man-machine integration covers many topics including the flight mechanics of 
helicopters / sling-load systems. Early objectives of this combined research have largely 
been accomplished and includ static wind tunnel tests of cubes and CONEX model [Ref 
14], flight tests of various single point external loads [Ref 15] and a simulation of the 
helicopter / slung load two-body system [Ref 16]. Current objectives are to provide a 
validated helicopter / slung load simulation for existing configurations and to provide a 
dynamic prediction tool for new configurations. 
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The first goal served three additional funetions. A validated simulation model 
could then be used to drive a motion-based flight simulator used for realistic pilot 
training, providing the correct “feel” of the external load operations. Secondly, the model 
could be used for load certification and configuration experimentation. Finally, provided 
valuable insight into conditions under which a particular load goes unstable. 
Understanding what operational techniques delay the onset of instability could expand 
the flight envelopes for existing loads. A larger flight envelope increases efficiency, 
important factor for civil and military slung load operations. 

In the design stage of a new helicopter or a new load configuration, a dynamic 
prediction tool would aid in verifying safety of flight prior to expensive wind tunnel or 
flight-testing. A simulation with modular architecture, allowing the designer to assess 
different elements representing helicopter dynamics, load aerodynamics, and sling 
geometry, would make possible extensive parametric studies, showing the sensitivity of 
the complete design to variations in any of the basic elements of the system. 


F, SCOPE OF CURRENT THESIS WORK PERFORMED 

This thesis describes the development and analysis of a fin type load stabilization 
device using a comprehensive dynamics and aerodynamics model for slung load 
simulation previously developed by the NASA Ames rotorcraft division [Ref 16]. This 
simulation is an integration of the NASA Ames GenHel UH-60A simulation with the 
equations of motion for slung load systems it includes in; 

• Static aerodynamics review. 

• Unsteady aerodynamics review. 

• Yaw Motion Correction and validation to the GenHel/Slung Load 
simulation. 

• Theoretical design and analysis of a fin type stabilization system. 

Gen Hel is a component-type nonlinear Black Hawk helicopter model, using a 
blade-element implementation of the main rotor system. Devloped by Sikorsky [Ref 17] 
and validated at NASA Ames for handling qualities research it’s main rotor dynamics in 
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the model inelude rotor flapping, lagging, and rotor speed, ineorporating lag dampers to 
enable the model to aeeurately prediet possible rotor instability due to air resonance. 

The slung load dynamics model was integrated into the GenHel/SL simulation by 
Tyson [Ref 17] from previous work at Ames [Ref 26]. This model used flight test data to 
validate the motions of the load. The results showed accurate reproduction of the load 
longitudinal and lateral pendulum motions [Ref 15, 16] but the yaw motions seen in flight 
were not matched. 

An in-depth review of the static and dynamic aerodynamics of the slung load was 
conducted to gain an appreciation of the forces behind the load’s motion. Basic airflow 
analysis along with flow separation and vortex shedding was considered to develop a 
mathematical model which closely followed both the steady aerodynamic wind tunnel 
data obtained at the Technion Institute, Israel [Ref 14] and flight test data obtained at the 
Ames Research Center [Ref 15]. 

The aerodynamics review was used to obtain an empirical formula to model the 
apparent aerodynamic forces on the load and the formula expanded to include the yaw 
resistance at the hook. Laboratory experiments were conducted to obtain the actual yaw 
resistance at the hook and the simulation validated against flight test data. 

A load stabilization module was developed and linked to the GenHel/SL 
simulation. The stabilizer aerodynamics was modeled for an airfoil exposed to a relative 
wind from any angle. The affects of a stabilization device of various sizes were studied 
using the CONEX box as load. 

Historically three basic types of loads have displayed a tendency towards 
instability; bluff bodies, flat plate type and aerodynamically active loads. Though this 
work focuses primarily on the bluff body loads the model was developed with the idea of 
expanding it to all types of unstable loads. 

The static and unsteady aerodynamics of a bluff body are evaluated in chapter II 
in order to get an appreciation of the forces causing the yaw motions. Past stabilization 
studies were reviewed in chapter III and a stabilization device was selected based on 
operational considerations. The yaw motion of the GenHel/SL simulation was corrected 
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and validated in chapter IV using flight test data. A stabilization module was developed 
in chapter V and linked to the GenHel/SL simulation and the effects of the stabilization 
system were evaluated. 
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II. BLUFF BODY FORCES AND MOMENTS 


A, OVERVIEW 

External load aerodynamics were considered prior to developing the load 
stabilization system model and a correction of its yaw motions. The aerodynamics 
accounts for the instability of many difficult loads at moderate forward speeds. The 
airflow around the load was considered in order to derive an appropriate simulation 
model 


The basic nature of the load aerodynamics differs in hover and forward flight. 
During hover the airflow around the load is determined by the rotor downwash, the 
magnitude of which and the amount of swirl in the downwash being dependent on the 
thrust of the helicopter/slung load as well as the helicopter’s rotor configuration. In 
forward flight the geometry and motions of the load determine the airflow around the 
load. For analysis the load aerodynamics were separated into steady and unsteady 
aerodynamics and the two effects are superposed. 

The remaining force acting on the load is that of hook resistance. The single point 
suspension system can be connected to the helicopter directly or by using a swivel 
assembly each providing a unique resistance to the load motions. The resulting equation 
incorporated all aspects effecting the yaw motions of the load is; 


YM =YM 


Static 


llVi 


Dynamic 


^ Swirl 


^ Hook Rei'wtance 


B. HOVER AERODYNAMICS 

The aerodynamics in a hover can be greatly simplified by only looking at those 
forces that cause motion in the external load. For this analysis the aircraft is considered 
to be in a hover when the aircraft is in a no-wind environment or that the wind is slight 
enough that it’s affect on the load is negligible. 

In evaluating effects of the downwash from the helicopter impinging on top of the 
load (uniform distribution) the only factor from the downwash that causes motion of the 
load is downwash swirl. In hover flight tests conducted at Ames with a swiveled sling, 
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yaw rates of about 45 degrees per second were seen. The GenHel / slung load simulation 
from reference (16) modeled the rotor downwash axial flow and represented the swirl as 
a lateral air velocity component. Although the axial flow can be 50 knots, it had 
negligible effect on the pendulum roots. The simulation roots did match the flight data 
but could not accurately model the yaw motions. 


C. FLIGHT AERODYNAMICS 

A bluff body aerodynamic analysis was performed for understanding of the nature 
of the box aerodynamics over a 360-degree range. 

Most unstable bluff body loads are medium to low density box-type loads. These 
display evidence of close coupling between lateral pendulous motions and yaw [Ref 12]. 
For this analysis the aerodynamics of a typical box-type load was considered. 

1. Wind Tunnel Data 

An in-depth wind tunnel study of the static aerodynamics of cubic containers and 
the CONEX cargo container was conducted by Technion Israel [Ref 15]. This data was 
comprehensive and accurate. All angles-of-attack and sideslip, as required for a complete 
simulation model were covered. Departures of measurements from the expected 
symmetries of the cube were used to improve the model mounts and remove interference 
effects. 

2. Steady Aerodynamic Analysis 

A basic analysis of the steady airflow around a box of length 1, width w, and 
height h, which is fixed in the airflow, is shown in figure (1). As the box turns in the 
airflow the streamlines will be deflected creating a lateral force perpendicular to the free 
stream velocity that will continue the motion until the two forces lie on a line through the 
geometric center. Any further rotation of the box beyond this angle of zero yaw moment 
{Pq ) will tend to return the load to this angle. 
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Figure 1. Bluff Body Un-separated Flow Aerodynamic Forces 


The angle of zero yaw moment {/3f ^) can be easily calculated for any box as 

The center of pressure for forces due to circulation effects can be taken as the 
point where the streamlines are deflected the most. In the case of the bluff body this 
corresponds to the outmost comers of the box. The forces affecting the yaw motion (Fs) 
can be broken down into two components Fx and Fy along and perpendicular to the side 

of the box with moment arms of and respectively. 

F^=F,xSin[2(5 + P,) 

F,=F,xCos{2/3 + /3,) 

where the term {2P + accounts for the angle of zero yaw moment being greater for a 
longer box. 

The total moment can then be calculated for any arbitrary box as 
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YM=2 F, [(^ -yQ Sm{2fi + M Cos(2A + Ao) 

Using the trigonometric identity Sin (2/3) = 2sin(y5) Cos{/3) and simplifying the 
total yaw moment becomes 

YM=F, Sm{4fi + 2M (K“’^) 

In addition wind tunnel studies [Ref 5] showed significant flow separation due to 
the sharp corners on bluff bodies. This flow separation creates bubbles of low pressure, 
which will produce lateral forces perpendicular to the sides of the box affecting the yaw 
moment of the box. These forces can be modeled as shown below. 



Fy 


Fx 

Figure 2. Bluff Body Separated Flow Aerodynamic Forces 
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The separation bubble produces a difference in pressure between opposite sides of 
the box resulting in a force along the body x-axis (Fx) which will be at a maximum at 
(3=0 and go to zero at (3=90°. It can be represented as 

= Cp Area = Cp hw Cos [(5) 


Similarly the force along the body y-axis can be calculated as 

Fy=CphlCos{P) 


Since these forces are caused by pressure forces they are perpendicular to the box 
surface and the center of pressure is located at the center of the flow separation bubble. 
The yaw moment caused by the flow separation is 

Y„={F, I Sn(/))] y/^xCos(P)\-{F, w Coi(/?)] Sin(P) 

Where 

F^=CpH 


This simplifies to 




Combining the two results gives a total yaw moment of 


Y. 


M 


= F. 


F, 


+ 2P„)-y, + 2 / 3 . )J+ 

'%Sm(2/?)-»'^Sn(2/3) 


The magnitude of the constant Fs was tuned for a best match of the wind tunnel 
data and was plotted against the CONEX wind tunnel data obtained by reference (14) in 
figure (3). The theoretical mathematical model matches the test data with the only 
noticeably difference being at the 45 and 135 degree points. At these points the wind 
tunnel data shows a sharp jump, most probably due to the corrugated surface and 
hardware on the CONEX box. 
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Comparison of Static Aerodynamic Model to Wind Tunnel Data 



Psi 


Figure 3. Technion Wind Tunnel Data vs. Theoretical Model 

Of particular note is that when integrated over a 360-degree rotation, the net yaw 
moment produced by the steady aerodynamics is zero. If used in a simple yaw degree of 
freedom model [Appendix A] the steady aerodynamics will not produce the motions seen 
in flight. This provides evidence that unsteady aerodynamic forces are required to 
account for the bluff body load motions seen in flight. This is consistent with the 
findings by Watkins and Prabakhar [Ref 18,3] that unsteady aerodynamics and coupled 
yaw-pendulum modes account for the instabilities of cargo containers. 

The Technion wind tunnel study provided accurate and comprehensive 
measurements of the six components of the static aerodynamics of the CONEX as 
functions of angle of attach and sideslip [Ref 15]. These were implemented in a 
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subroutine as tables of data every 5 degrees along with a lookup eone. Details are given 
in appendix (B). 

3. Unsteady Aerodynamics Analysis 

The work in referenee (5) ineluded an unsteady forced oscillation test. In this test 
it was noted that the bubble development had a phase lag associated with it though 
asymmetries in the pressures in the bubbles indicated that unsteady effects other than 
simple phase lag exist. Unfortunately no data was available on the phase lag and as such 
could not be mathematically modeled. 

Another well known unsteady effect of bluff bodies is that of vortex shedding. In 
his book on aeroelasticity [Ref 19] Y.C. Fung addresses vortex shedding and notes that a 
satisfactory theory on vortex shedding has yet to be developed. Nor have the 
experiments been comprehensive enough to permit useful generalizations. It is known 
that vortex shedding causes impulsive lateral forces and corresponding torsional 
moments, which depend on the wind speed. In the case of the external bluff body this 
could well explain the coupling seen between the lateral pendulous motions and yaw. 

A theoretical model of vortex shedding is unknown, but its effects on the load 
yaw motions in flight are known. Using this knowledge an approximate yaw moment 
correction can be introduced which represents the vortex shedding plus a bubble 
development phase delay reproducing the flight yaw motions. 

To generate an unsteady aerodynamics model it was assumed that a force was 
being developed on the downwind sides of the box and was a function of the relative 
wind velocity. As the box starts to turn, the relative winds on the opposing sides of the 
box are the same. As the yaw rate increases the relative wind on one side of the box will 
increase while the opposite side will experience a corresponding decrease s as shown in 
figure (4). 
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In order to produce the motions seen in flight using a swiveled sling connection, 
the initial force in the direction of spin has to overpower the force opposing the spin 
resulting in a net positive yaw moment. As the box yaw rate accelerates the relative wind 
of the force producing the positive yaw rate decreases and the relative wind of the force 
opposing the spin increases. This reduces the yaw moment until a balance is found and 
the box stabilizes in a steady state spin. 

These observations were used as a basis for an empirical model of the dynamic 
aerodynamics forces. 

= Koyn Sign{r) (Va - K^r) 

Where Koyn accounts for the various unknown constants and Kg is a conversion 
factor from rotational speed of the box corner to linear speed in the relative air direction. 
The factor Sign{r) causes the yaw moment to act in the direction of rotation and the 
factor (ka - K^r) accounts for the effect of relative wind. 


D. YAW RESISTANCE AT THE HOOK 

A single yaw degree of freedom simulation model [Appendix A] was used to 


model yaw moment corrections for the GenHel / Slung Load program. The corrections 
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for forward flight yaw motions focused on two aspects, the yaw motions due to dynamic 
aerodynamics and the yaw resistanee at the hook. Yaw motions in hover are due to the 
effect of rotor down-wash swirl on the load 

Two different sling eonfigurations were used in the flight tests. One 
configuration fixed the clevis of the sling direetly to the hook on the helicopter and the 
other used a swivel between the sling and helicopter. In the absence of a swivel the sling 
legs periodieally windup and unwind due to the combination of yaw moment due to 
unsteady aerodynamies and the yaw resistance at the hook. With a swivel, the load spins 
up to a steady yaw rate determined by the combined unsteady aerodynamics and swivel 
frietion. These two resistance phenomena were modeled separately as followed 

Yaw resistance at the hook without a swivel was determined in tests eonducted at 
the Ames Meehanical Engineering Laboratory. The CONEX box was suspended from a 
crane with a standard four-legged military sling rated at ten thousand pounds and the 
erane hook seeured against. A motor was conneeted to the bottom of the CONEX that 
provided readout of the torque required to rotate the load. Measurements of torque and 
height were taken at regular rotation intervals up to ten turns. Ten turns was the 
maximum number of revolutions seen in flight test at 70 knots. The resulting sling 
geometry at ten turns is seen in figure (5) and numerical results are plotted in figures (6) 
and (7). The height variation with rotation angle [Eig 6] shows a total shortening of only 
of 21 inehes for the total sling length. However the corresponding sling geometry [Eig 5] 
shows about one half of the total sling length is involved in the windup. 

The plot of torque vs. rotation [Eig 7] shows two distinct regions of behavior. 
There is nonlinear behavior in the startup region from 0 to 270 degrees and a linear 
region after that. The measurements also show signifieant hysteresis, but the source of 
this was not identified. A table look-up program [Appendix C] gave hook yaw resistance 
due to sling windup with data taken from the average of the two hysteresis loops in figure 
(V). 

Yaw resistance due to swivel frietion was modeled as 
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iff'*- 


YMs„i,,,=-Kswivel r 
where 

Kswivel = \.5 




Figure 5. Sling Wind-Up Test at 10 Revolutions 
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1 . 


Hover Corrections 


It is assumed that the load is entirely immersed in the helieopter wake at hover 
and that the wake is entirely behind the load at 20 knots forward airspeed. The yaw 
moment due to wake swirl is therefore modeled by the following linear equation. 

Swirl - Kswirl X Max (0, 1 - ) 

where Va is in knots. 

The constant, Kswirl, can be determined from the observed steady yaw rate at 
hover with a swivel (45 degrees per second) and the swivel friction constant. The steady 
state solution from the one-degree of freedom model is 

_ Kswirl 
Kswivel 

whence Kswirl winds up to be 40 ft lbs of torque. 

2. Model Validation 

The maximum yaw rates for both swivel and unswivel cases were calculated from 
flight test data. A series of simulations were conducted at varying airspeeds and the 
simulation maximum steady yaw rate for the swivel and the non-swivel case were plotted 
against flight test data in figure (8) and (9). A linear fit of the flight test data was plotted 
for comparison. As expected yaw rates for the swivel case was noticeably higher than for 
the unswiveled case for all airspeeds. 


18 



















The simulation model eonstants Kswivei, Koynam and Kswiri were tuned to flight test 
data at 40 knots for the unswiveled ease and a value of .3 ft-lbs for Koynam was obtained. 

The equations were included into the GenHel / slung load module [Appendix J], 
The simulation was then ran using control inputs from flight test data [Appendix D] and 
compared to flight tests. Figure (10) shows a typical result for a swivel and no-swivel 
case and more comprehensive charts are shown in appendix (D). The simulations 
conducted for both the swiveled and unswiveled cases accurately modeled the gross 
behavior seen in flight. Higher frequency behavior related to detailed variations during 
each revolution is not as well simulated but has the same frequency content. 


No-Swivel Case 



Swivel Case 



Figure 10. Yaw Rate Validation Plots 
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III. STABILIZATION DEVICE 


A, OVERVIEW 

This section considers the principal categories of unstable loads and 
corresponding modes of instability, the general design considerations for stabilization 
devices, and the available stabilization concepts and their operational suitability. The 
controllable fin stabilizer assembly is the concept selected for this study. 


B, MODES OF INSTABILITY 

Bluff body research [Ref 12, 21] showed a lateral to directional-coupled unstable 
pendulum as the major source of instability. These loads would benefit most from a 
stabilization system that controls the yaw motions of the load. 

Flat plate loads exhibit aerodynamic instability in which pitch is always strongly 
involved in the instable motion [Ref 23,24]. These loads require a stabilization system 
that controls pitch as well as yaw. 

Aerodynamically active loads are the most unstable type of loads. These loads 
and their aerodynamic surfaces can generate significant forces and moments. Analyzing 
their instability as loads as analyzing their instability as a rigid body aircraft, that is the 
instability can be determined from linear analysis and ordinary stability derivatives. A 
stabilization system for these types of loads would have to be capable of controlling the 
inherent forces and moments of the loads. 

C. DESIGN CONSIDERATIONS 

Operational suitability of the stabilization device requires that they be safe, 
imposing a minimal weight penalty and be easy to use. 

Safety of the aircraft, crew and load handlers are of utmost importance. A 
stabilization device may introduce its own hazards, such as the possibility of a drag chute 
becoming entangled in the tail rotor, or the possibility of blowing the load about in the 
downwash of heavy helicopters, endangering ground personnel. 
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The weight of the stabilization deviee reduces the payload capacity. Ease of use 
relates to ease of transportation, assembly and attachment with minimal support and 
special equipment requirements. This is affected by weight, size and complexity of the 
device. 

D, APPLICATION 

Any stabilization system developed for operational use must be applicable to a 
wide range of aerodynamically unstable loads. Flow separators and stabilization systems 
mounted directly onto the load are very load specific and can be difficult or impossible to 
transfer to other similar loads. For example a stabilization system designed to fit on a 
CONEX box might not be adaptable to a vehicle displaying similar aerodynamic 
instabilities. The multi-service Helicopter External Air Transport manuals (HEAT) [Ref 
25] have detailed information on numerous loads carried by U.S. military helicopters. A 
review of the loads authorized for transport with a single point suspension system gives 
an idea of the range of load sizes that could benefit from a stabilization system. A review 
of the loads authorized for transport with a single point suspension system gives an idea 
of the range of load sizes and max operational speed for loads that could benefit from a 
stabilization system. 


Load 

Load Type 

Distance 
Between 
Lift Points 
(ft) 

Max 

Airspeed 

(Kts) 

HAWK Acquisition Radar 

Bluff Body 

7X4 

75 

Fuel Dispensing System 

Bluff Body 

8X4 

60 

5-Ton Truck 

Bluff Body 

20X8 

80 

1 V 2 -Ton Trailer 

Bluff Body 

10X5 

45 

Water Trailer 

Bluff Body 

8X5 

80 

Collapsible Tank Assembly 

Bluff Body 

15X8 

35 

Aircraft airmobile maintenance shop 

Bluff Body 

15X10 

60 

CONEX Box 

Bluff Body 

8X6 

60 

Medium Span Bridge 

Flat Plate 

20X 15 

60 
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Floating Bridge Span 

Flat Plate 

15X 15 

50 

Flatbed Trailer 

Flat Plate 

25X 15 

70 


Table 1. Load Parameters 


E. SELECTED STABILIZATION DEVICE 


The merits of several load stabilization systems are eompared in table (2). 


Stabilization Device 

Advantages 

Disadvantages 

Aetive Jet Controls 

No interaction with load 
handlers 

Weight, Complexity 

Spinning Wheel 


Weight, Complexity 

Flow Diverters 

Simplicity, Weight 

Load Specific 

Wake Splitters 

Simplicity 

Load Specific 

Aetive Arm Controller 

Inherent to Helo 

Weight, Complexity 

Controllable Fins 

Simplicity, Weight 

Attached by Ground Crew 


Table 2. Stabilization System Comparison 


The theoretieal stabilization system seleeted for this study is a tail fin assembly 
attaehed to a frame. An aetive eontrol surfaee along the training edge of the airfoil is 
proposed. This system is attaehed by short links between the load and sling as shown in 
figure (11). This system is the most promising to provide a simple, low-weight system 
that would be feasible for military and eivilian operations and allow for struetural 
adjustments to make it applieable to a wide range of loads of various design. 
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IV. STABILIZATION PROGRAM DEVELOPMENT 


Equations for the stabilizer aerodynamies and simulation model code are given in 
this chapter. The aerodynamics is based on those given in reference (20) for isolated 
control surfaces. The model was first implemented in a MATLAB program to provide 
illustrative results and confirm the equations. They were subsequently implemented in 
FORTRAN code and integrated into the GenHel / Slung Load simulation. 

A, FLAT PLATE AERODYNAMICS 

Tischler [Ref 20] conducted an in-depth analysis of flat plate aerodynamics and 
the key points are summarized here 

Tischler found that the forces on fiat plates were primarily from distinct 
circulation and edge vortex effects and could be modeled separately in three regions of 
the pitch and yaw domain which are shown in figure (12). 


Pitch 


ai 


ai 



Crossflow 

Region 


Transition Region 


Prestall Region 



-> Yaw 


71/2 


Figure 12. Flat Plate Computational Regions 


Aerodynamics in the pre-stall region is based on thin airfoil theory and all forces 
are primarily due to circulation effects and depend on dynamic pressure (q) and the angle 
of attack. As in basic thin airfoil theory all forces can be assumed to be acting at the 
quarter chord point of the plate. 

The cross-flow region was that region where the entire down-wind surface of the 
fiat plate is in stall. In this region drag forces predominate and are due primarily to flow 
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separation and vortex effeets. In this region the center of pressure is at the geometric 
center of the plate. 

In the transition region the aerodynamic forces are modeled as varying linearly 
across the region from the pre-stall to the cross-flow regions. The forces in this region 
are a combination of circulation and edge vortex effects. The center of pressure for this 
region transitions from the quarter chord to geometric center. 

B, STABILIZER AERODYNAMIC MODEL 

The airfoil for a load stabilization system will experience three different flow 
regimes; pre-stall, stall transition and cross flow as shown in figure (13). The different 
flow regimes around the airfoil are defined by two stall angles; the angle of attack where 
the airfoil first starts to enter stall and the angle of attack where the airfoil is 

unable to produce any lift due to circulation effects ). In addition the airfoil is 
considered to be in total stall when the airflow is along the leading edge of the 
airfoil (y5 = ±90°) or if reverse flow over the airfoil exists ) 90°). Table (3) shows the 
flow regimes in the a (3 plane 

For this model is 20° and is 45° . a is the pitch angle between the x- 

axis of the load and the free stream velocity vector and (3 is the yaw angle between the x- 
axis of the load and the free stream velocity vector. 


^ stall 



Figure 13. Flow Regimes for Load Stabilization Airfoil 
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a 

P 

Pre-Stall 

1^1 Stall 


\fi\{7rl2 

Stall Transition 

^ Stall ( ^ Stall 


\P\{7tll 

Cross flow 

^1 ) ^Stall 


\P\)7tll 


Table 3. Control Surface Flow Regimes 


1, Symbols 

In calculating the forces and moments the following constants and equations are 
defined. 

u,v,w Body axis components of velocity 

a, P Angle of attack and of yaw respectively 

S Stabilizer planform area. 

C Stabilizer chord. 

Skin friction drag. 

Profile drag coefficient. 

Induced drag coefficient. 

Lift curve slope. 

C, Coefficient of lift due to control surface deflection. 

5 Control surface deflection 
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2 . 


Pre-Stall 


The airfoil body axis forces , Fy and F^ for this region are given from the lift 
and drag coefficients as; 


Fx=-yipV^uS 



+ 


^La ^ 

TT e AR ^ 


F,=-'Apr,,vSC^ 

Fz=-Y,P r,;5[C„a+C,s<y] 

In the prestall region the resultant lift force due to circulation is normally 
considered to act through the quarter chord of the airfoil. This results in a pitching 
moment about the geometric center of 



3. Cross Flow 

In the cross flow regime the stabilizer is completely stalled and all forces are a 
function of drag. F^ and Fy are due to skin friction drag and F^ is a due to profile drag. 

F,=-y,pV,^USCyy^ 

Fy=-y2PV^,vSCy,^ 

Fz=-yipV,yWSCy,p |sin(a)| 

where S |sin (a)| is the frontal area presented to the free stream. 

In the cross flow regime the center of pressure coincides with the geometric 
center so that all moments about the geometric center are zero. 

4. Stall Transition 

Force calculations for F^ in the stall transition regime is a linear interpolation 
between the forces at and . 
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F =F +■ 

^ X ^ X ^ 


F^ -F' 

^ X ^ X 

CC^ — CC^ 

^ Stall ^ Stall 


X 


^Stall . { 


where fJ, is ealeulated using the pre-stall equation at a 


Stall 


=■ 

^ X 


-YlpV^yUS 


Coo + 


C" (a* ] 

^ La ^Stall ! 

n e AR 


2 A 


and F^ is ealeulated using an adjusted equation for the dynamie pressure to the relative 
span to obtain the eorreet wind veloeity and sign at and is 


Where 

Ui =^xz Cos(al^n)Sign(Cos(al^,i)) 

Fxyl ~ 


lul+v^ 


No interpolation is needed forFj, sinee its equation is the same for all regimes. 


Fy=-y2pV^,vS C 


'Do 


The ealeulations of F^ is similar to that for F^. 


Fx 


F^ +■ 

^ z ^ 


F^ -F' 

^ z ^ z 

^ Stall ^ Stall , 


x\\a\-a 


1 

Stall . 


where F^ is ealeulated using the pre-stall F^ equation at . 

P'z=-'ApylzS (c„ <„ Sign{a)+C,,s) 

and F^ is ealeulated using an adjusted equation for the dynamie pressure to the relative 
span to obtain the eorreet wind veloeity and sign at and is 
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Fl=-yiP |sin(a)| 

Where 

^2 =Kz Sin(al^,i)Sign{Sin{a)) 

^ xz 2 = +'^2 

The pitching moment is calculated assuming the resultant lift force point of 
application migrates from the quarter to half chord proportionally as a increases from 

^Sta// ^Stall • 


M 


F C 


+ 


F C 


a 


Stall ^ Stall 


a 


A^-^\tall) 


5. Forces and Moments in Load Body Axes 


The above equations are given for vector components in the body axes of the 
stabilizer surface. Body axes of the horizontal stabilizer are assumed to be parallel to the 
load body axes so no transformation is required. However, the vertical stabilizer body 
axes are obtained by rotating counter clockwise 90 degrees about the load x-axis. 
Consequently, velocity components for the vertical stabilizer axes are obtained from the 
load body axes components as 




v^y 




w 


Vert Stab 


V ^Jload 


The total forces from the horizontal and vertical stabilizers in load body axes are: 

AF = F" + F^ 

AF =F^ +F'' 

AAi y 1 y ^ 1 2 

AF =F^ -F^ 

The contribution of the stabilizer assembly to the load moments about the load 
geometric center is: 
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AM^ = [-Fy hZ + F^ AF]" - [Fy AY + F^ AZf 

AMy = [Fyy AZ - F^ AX + Mj.^ +[F^ AZ + Fy AXf 

AM^ = [-Fjy AY + Fy AXf +[-Fjy AY + F^ AX-Myf 

where the superscripts designate the horizontal and vertical stabilizer forces and 
AX,AY,AZ are the body axes coordinates of the stabilizer assembly geometric center 
from the load geometric center. 

6. Illustrative Results 

A MATLAB model [Appendix E] was used to check the force and moment 
equations. Calculations and plots were made for a between ±90 degrees and for (3 
between ±180. 

Stabilizer size and orientation for this model was determined by fitting the 
stabilizer to a CONEX box load. The airfoil used for both the vertical and horizontal 
stabilizer was a standard NACA 0015 airfoil with typical aerodynamic values chosen as 
listed in table (4). 



Table 4. Stabilizer Parameters 
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The Forces and moments of both stabilizer surfaces were plotted individually and 
checked for expected orientation and magnitude. Additional plots are shown in appendix 

(F). 


Vertical Forces Vert Stab. Load—body centerd axis 



Figure 14. Vertical Stabilizer Load Yaw Force 


Lateral Forces Horz Stab, Load—body centerd axis 



Figure 15. Horizontal Stabilizer Load Yaw Force 


32 




The forces and moments were then transformed from airfoil-centered axis to load 
body-centered axis and plots of the resultant load-body centered axis forces were checked 
for expected orientation and magnitude. Additional plots are shown in appendix (H). 


Load Body ftxis Forces vs Beta 
alpha =0 airspeed=60 kts 




FYF 


50.00- 


0 . 00 - 


-50.00- 


BETA 


-lo'o.o 


FZF 


0.0 


100.0 


Figure 16. Load Body Axes Forces 
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c. 


FORTRAN MODULE 


The above stabilizer equations were implemented in a FORTRAN subroutine 
[Appendix G] and integrated in the GenHel / Slung Load program. The subroutine 
models the complete horizontal and vertical stabilizer assembly and generates the 
stabilizer contribution to the load force and moment sums. Computation of velocity at 
the stabilizer geometric center must account for load angular velocity. 


u = —va2s2{\) + qx AZ -r x AT 
V = -va2s2{2) + r x AT — px AZ 
w = -va2s2(3) + px AY — qx AX 

where va2s2 is the load center of gravity velocity vector and {p,q,r) are the load 
angular velocities. Data for standard NASA airfoils is available for two-dimensional 
flow, and can be converted to three-dimensional flow following reference (28). 


2 + ^A + AR^xB^ 

Where 

= \-Mach^ 

AR = Aspect Ratio 


Modifications to the initial GenHel / Slung Load simulation from reference (17) 
are documented in Appendices J through O. The stabilizer subroutine appears as a single 
call in the slung load two-body dynamics model [Appendix J], and otherwise common 
blocks [Appendix O] and input / output subroutines [Appendix K, L] are revised to 
accommodate the new stabilizer variables. Input values for the stabilizer parameters and 
options are isolated in a single file given in appendix (I). The post-run processing code 
was revised as documented in appendix (N). 
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V. RESULTS AND CONCLUSIONS 


A, SIMULATION RESULTS 

Once the simulation yaw motion had been validated using flight test data a 
theoretical simulation assessment of the envelope expansion obtained from both passive 
and aetive stabilization was condueted. For the assessment only the stability 
contributions of the vertieal stabilizer were considered by setting the area of the 
horizontal stabilizer to zero. The airfoil chosen for the stabilizer was the NACA 0015 
with lift and drag data taken from Ref (28). For the aetive stabilizer a control surface of 
20% of the total chord with a maximum deflection of 20 degrees was used. The stabilizer 
was plaeed eentered laterally and slightly behind and above the baek edge of the box. 
The corresponding stabilizer geometrie center was located at (-8,0,-5) feet in the x, y and 
z direetions respeetively. The maximum feasible stabilizer size for use on a CONEX 
with a 4 legged sling is 4 ft by 5 ft and was the upper limit used in this simulation. 

The test case 4,000-pound CONEX box without a stabilizer displays divergent 
yaw rates above 70 knots in the simulation. The addition of the stabilizer provided 
damping and extended this range, depending on stabilizer size and whether the stabilizer 
was passive or aetive. The effeets of the stabilizer were assessed in a series of simulation 
runs with stabilizers of various sizes over a speed range from 60 to 120 knots. Damping 
ratio was computed from the yaw rate time history. 



and the values T, t, y 2 andy; are obtained from the time history plots. 
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Figure 17. Damping Ratio Calculations 

Additional plots of the yaw rates are given in appendix (P). A damping ratio of. 1 
was judged to provide adequate yaw motion stabilization and was selected as the target 
damping. 

Figure (18) illustrates the different load yaw motions without and with a 3 ft by 4 
ft stabilizer. Plotted are yaw angel (PS2) in degrees and yaw rate (R2) in feet per second 
versus time in seconds. Figure (19) shows the theoretical damping ratio of the passive 
stabilization device versus airspeed in knots. Figure (20) is for the same size stabilization 
device, but equipped with a training edge control surface of 20 percent chord. 

As seen the CONEX yaw motion and rate at 100 knots demonstrates negative 
damping without a stabilizer, is damped at. 1 with a passive stabilizer and is well damped 
(.4) for the active stabilizer. A larger area is required for a passive stabilization system to 
reach the desired damping and will result in undesired additional rolling moment, but 
does not incur the additional complexity associated with an active stabilization system 
requiring control systems and rate feedback gyros. 


36 



hio S!abiii’£'E 









e^.ci'.-Ji 




.ofj 

^r.'o 





=:>.o '•' ? / '• V V' ' • 

■>■ .■ 

. . . . . . 

1 H H 


...-■, 



--•■•.■■"' 


t 

.: f n.P 






':Y...^. 





?• 



•isS, 

>:! r:i .■(,■»;> 







pEiEjiiive S>5bi!;zBt 


■ \ A 

■• I ' • 'f'l. ' 

-iD.iv:.-* ••-• 

'.■::'^.>.<:.h:> '''' 


{.] A /\ . 

'5 A A . ■ ■ ' 

n ■ / •: ■ i ■ • 

it t 

vWw 

. \J. .: .V . .•■J.. .. . .. ; 

i'''. ■ j\ 

s./ • 

J V b 

'-.f 




PS:- 





Aoti-vK Siabilfz.er 





.:%(.•).iXi 

<■.> . 

■■/■'■f.'f .iliilr 

*tC>.-£jO 

T' -I f-.-n!-;:'. 1 (OC 'j:I'X >: ^ 





.... I 


Figure 18. Effect of Stabilizer on Load Yaw Motions 
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Dampin Ratio Damping Ratio 


Passive Stabilizer Damping Ratio vs Airspeed 



Airepeed (Kts) 


♦ 1>3 
-------2X3 

A 2X4 
X 3X4 
—*—3X5 

• 4X5 


Figure 19. Passive Stabilization System Damping Ratio 


Active Stabilizer Damping Ratio vs Airspeed 



Airspeed (kts) 


Figure 20. Active Stabilization system Damping Ratio 
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Results for passive stabilization are shown in figure (19). Passive stabilization 
with an area of less than eight square feet provided negligible yaw damping, although 
neutral stability was extended to 90 knots. Stabilizers with fifteen or more square feet 
provided the desired damping at 70 knots out to 118 knows and beyond. While 8 to 12 
square feet areas provided positive damping it only reached the desired damping over a 
small range of airspeeds. 

The addition of active stabilization requires smaller areas as expected [Fig 20] 
with a requirement for an area of only 8 square feet to produce the desired damping ratio. 
Stabilizer areas below this provided no improvement over the passive stabilizer. 
Stabilizer areas of fifteen square feet and up showed large damping, to .52, but little 
corresponding improvement in yaw rate behavior, as seen in figure (21). Plotted are yaw 
rate (R2) in feet per second versus time in seconds. 



0.00 20.00 -^0.00 SO-OO 


2X4 Active Stabilizer 



Figure 21. Yaw Rates for Selected Active Stabilization System 


Table (6) shows the envelope expansion obtained by the use of passive and active 
stabilizers. The critical airspeed is that point where the damping of the slung load / 
stabilization system becomes divergent. The passive stabilizer increases the critical 
airspeed of the helicopter / slung load system up to 89%. The active stabilization system 
doubles the critical airspeed. 
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Size (ft) 

Type 

Critieal Airspeed (kts) 

Pereentage Inerease 

1X3 

Passive 

85 

21% 

2X3 

Passive 

87 

24% 

2X4 

Passive 

112 

60% 

3X4 

Passive 

113 

61% 

3X5 

Passive 

118 

69% 

4X5 

Passive 

132 

89% 

1X3 

Aetive 

85 

21% 

2X3 

Aetive 

87 

24% 

2X4 

Aetive 

127 

81% 

3X4 

Aetive 

127 

81% 

3X5 

Aetive 

135 

93% 

4X5 

Aetive 

140 

100% 


Table 5. Speed Envelope Expansion 
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B, CONCLUSIONS 

The unstable load motions of bluff bodies seen in flight are due to load unsteady 
aerodynamics. These instabilities raise an important safety concern and can limit the 
speed envelope for their external transport well below the power-limited airspeed of the 
helicopter alone. Stabilizer fins provide a promising method of stabilizing bluff bodies 
both in effectiveness and in operational feasibility. 

Results for a 4,000 pound CONEX and a vertical fin stabilizer showed that its 70 
knot speed envelope could be extended to 120 knots using a passive stabilizer of fifteen 
square feet area, or an active stabilizer with eight square feet area and a trailing edge 
control surface of 20 percent chord. Though a much smaller active stabilization system is 
needed to obtain the desired damping it comes with the additional complexity of 
instrumentation and control systems. 

Both passive and active stabilization systems displayed a rapid drop in 
effectiveness at airspeeds below 60 knots, so that additional design analysis would be 
needed for very difficult bluff body loads with unstable speeds much lower than the 
CONEX. 

C. FURTHER RESEARCH 

Construction and flight-testing of the proposed stabilization system is essential in 
validating the current simulation. Once validated, application of the stabilization system 
can be expanded to other types of loads such as flat plate type loads and non box-type 
bluff bodies like vehicles. 

To expand the scope of the stabilization system, a better knowledge of the driving 
forces due to dynamic aerodynamics are needed. Once these phenomena are understood 
the simulation can be expanded to cover a wide range of loads allowing the stability and 
effects of a load to be studied in depth prior to any flight-testing. 
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APPENDIX A YAWDOF3.M 


FORTRAN program to develop and eheck the eorrecting equations for the yaw 
degree of freedom in the GenHel / Slung Load program. Program by Cieolani L. and 
Ehlers G. 

C fde yawdoB.f 18 april 01 

C simulate yaw DOF for swiveled hook, using techdati WT data. current 
version is conexia.f 

C revise alfa,beta computation to correspond to load w steady trail 
angle rotating about its vertical axis 

program yawdof2 
parameter( nchan = 11) 

real va2s2(3), fa22(3), ma22(3), faw(6), Tbn(3,3) 

real Kr,Kpsi,Fdyn,Izz,ktstfps,dynam,swirl 
real*8 time,dat8(nchan) 
character*20 fn, sn(nchan) 
logical*! L,openW 
integer flag 

common/xfloat/a(500)/ifixed/ia(50) 

common/ifloat/rload(200),rload3(200),rload!(200),rload5(200) 
equivalence(A(183), rho) 
equivalence(A(359), rtd) 

equivalence(rload5(73), alf2d) 
equivalence(rload5(74), bet2d) 
equivalence(rload5(76), faw(l)) 
equivalence(rload5(82), alfao) 
equivalence(rload5(83), betao) 

equivalence(va2s2(1), u) 
equivalence(va2s2(2), v) 
equivalence(va2s2(3), w) 


data 

X tstop,dt/300., .01/, 

X vakts,flag/50,0/, 

X iaero,Aym/1,400/, 

X sn/ 

X 'dr ','r ','psi 

X 'betao ', 'alfao', 'u 
X 'ym ' / 


', 'beta ', 'alfa 

', ' V ', ' w 
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rho 

= 

. 00237689 

rtd 


57.295780 

dtr 


1 /rtd 

ktstfps 


1.68894 

pi 

= 

3.14159274 

Kr 


0 

Kpsi 


0 

Fdyn 

= 

. 7 

thto 


20 

psio 


0 . 

aoao 


-20 . 

Izz 


1376 

fn 


' test.xp' 

rdps 


0 . 


name1iSt/in/tStop,dt,vakts,aoao,Kr,Kpsi,Fdyn,psio,rdps,fn, 
X iaero, Aym, thto 

103 continue 

c Read in output file name 

90 type *, 'Enter name of output file name.xp' 
read(5,91,err=90) fn 

91 format(A) 

c Read in Va 

92 type *, 'Enter Va' 
read(5,93,err=92)vakts 

93 format(F3.0) 


write(6,in) 

104 type *,'any changes? (CR,1) = (no,yes)' 
read(5,101,err = 104) flag 
if (flag.ne.O) then 
flag = 0 

102 type*,'enter changes to &in' 

read(5,in,err=102) 
end if 

101 format(14) 

L = openW(1,fn,nchan,sn, 'unc3 ' ) 


t 

= 0 

dto2 

= dt/2 

odr 

= -60 

r 

= rdps*dtr 

o_r 

= r 

va 

= vakts*ktstfps 

psi 

= psio*dtr 

tht 

= thto*dtr 

stht 

= sin(tht) 

dr 

= 0 
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100 continue 


cpsi = cos(psi) 
spsi = sin(psi) 

sph = -stht*spsi 
ph = asin(sph) 
cph = cos(ph) 
sth = -cpsi*stht/cph 
th = asin(sth) 
cth = cos(th) 


Tbn(1,1) 
Tbn(1,2) 
Tbn(1,3) 
Tbn(2,1) 
Tbn(2,2) 
Tbn(2,3) 
Tbn(3,1) 
Tbn(3,2) 
Tbn(3,3) 


CPSI*CTH 

CTH*SPSI 

-STH 

CPSI*SPH*STH-CPH*SPSI 
SPH*SPSI*STH+CPH*CPSI 
CTH*SPH 

CPH*CPSI*STH+SPH*SPSI 
CPH*SPSI*STH-SPH*CPSI 
CPH*CTH 


alfa = atan(Tbn(3,1)/Tbn(1, 1)) 
beta = asin(Tbn (2,1)) 
s = sign(1,Tbn (1,1)) 

if (s.It.0.and.beta.It.0) beta = -pi - beta 
if (s.It.0.and.beta.gt.0) beta = pi - beta 


calf 

salf 

cbet 

sbet 

u 

V 

w 

q 


= cos(alfa) 

= sin(alfa) 

= cos(beta) 

= sin(beta) 

= Va*calf*cbet 
= Va*sbet 
= Va*salf*cbet 
= .5*rho*va*va 


if (iaero.eq.l) then 

call conex4a(va2s2,fa22,ma22) 
ym = ma22(3) 
else 

ym = Aym*sin(4*beta) 
end if 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccc 


dynam= sign(1,r)*q*(va-fdyn*abs(r*rtd)) 
swirl= max(0,5*(l-vakts/20)) 
c ym = ym+dynam+swirl 


dr 

= (ym- 

-Kr*r-Kpsi*psi)/Izz 

r 

= r + 

(3.*dr - odr)*dto2 

psi 

= psi 

+ (o_r -1- r) *dto2 

t 

= t + 

dt 

odr 

= dr 


o_r 

= r 
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c store unc3 file here. This is clumsy 


time 


= 

t 

datS 

(1) 

= 

dr 

datS 

(2) 

= 

r*rtd 

datS 

(3) 

= 

psi*rtd 

datS 

(4) 

= 

beta*rtd 

datS 

(5) 

= 

alfa*rtd 

datS 

(6) 

= 

betao 

datS 

(7) 

= 

alf ao 

datS 

(8) 

= 

u 

datS 

(9) 

= 

V 

datS 

(10) 

1 = 

w 

datS 

(11) 

1 = 

ym 


call fwrite(l, time, datS) 
if (t.le.tstop+dt) go to 100 
call closeW(l) 

301 type *, 'another run? (cr,l) = (no,yes)' 
read(5,101,err=301) flag 
if (flag.ne.O) then 
flag = 0 
goto 103 
end if 

stop 

end 


subroutine serchl(x,tx,nx,lx,sigx) 
dimension tx(l) 

xl = amaxl(tx(1),aminl(x,tx(nx))) 

1 = 1 

1 if (i.eq.nx) then 
lx = nx -1 
sigx = 1 

else if (xl.It.tx(1+1)) then 
lx = 1 

sigx = (xl - tx(1))/(tx(1+1)-tx(1)) 
else 

1 = 1 + 1 
go to 1 
end if 
return 
end 

c 2-D table lookup routine for an array A(nx,ny). 

function f2d(ix,iy,sigx,sigy,nx,tf) 

dimension tf(l) 

kOl = nx*iy + lx 
kll = kOl + 1 
kOO = kOl - nx 
klO = kOO + 1 


50 



fOO = tf(kOO) 
fOl = tf(kOl) 
flO = tf(klO) 
f11 = tf(kll) 

sigys = 1 - sigx 

if (sigy.le.sigys) then 

f2d = fOO + (flO-fOO)*sigx + (fOl-fOO)*sigy 
else 

f2d = fll - (fll-fOl)*(1-sigx) - (fll-flO)*(1-sigy) 
end if 
return 
end 
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APPENDIX B CONEX4A.F 


Forces and Moments data from Technion Institute wind tunnel experiment. 
Lookup program to extract data for GenHel / Slung Load simulation follows data. 
Program by Cicolani L> 


c subroutine /harrier/tyson/GenHel/batch/sl/conex4a.f 

C conex static aerodynamics from Technion CONEX WT data #4 april 

01 

C data revised by techdat4.m to impose 
C (1) doq(aoa,90) = fixed 

C (2) loq, rmoq, pmoq = 0 at (alfa,beta) = (0,90) 

C (3) loq, rmoq, pmoq = 0 at aoa = -90,+90. 

C This version stores tables in (alfa,beta) in [-90,90]x[0,180] and 
C computes (alfa,beta) S.T. |alfa| < 90. 

C PT's wake model omitted this version 

subroutine conex4a 
include 'slvars.cmn' 

C123456789C123456789C123456789C123456789C123456789C123456789C123456789C 

1 

real alfg_cnx(37), betg_cnx(37), 

X doqt_cnx(37,37),yoqt_cnx(37,37),loqt_cnx(37,37), 

X rmoqt_cnx(37,37),pmoqt_cnx(37,37), ymoqt_cnx(37,37), 

X s(6,2),faw(6),fawo(6),T2w (3,3) 

equivalence(faw(1), fa2w(l)) 

C fortran stores by column. each column corresponds to a single value 
of beta here - the reverse 

C of the storage in milvan_arc.f where each column was a value of alfa. 


data alfg_cnx/ 


X 

-90 

o 

o 

-85. 

o 

o 

-80 . 

o 

o 

-75 . 

o 

o 

-70 . 

o 

o 

-65 . 

o 

o 

-60 . 

. 00 

X 

-55 

o 

o 

-50 . 

o 

o 

-45 . 

o 

o 

-40 . 

o 

o 

-35 . 

o 

o 

-30 . 

o 

o 

-25 . 

. 00 

X 

-20 

o 

o 

-15. 

o 

o 

-10 . 

o 

o 

-5 . 

o 

o 

0 . 

o 

o 

5 . 

o 

o 

10 . 

. 00 

X 

15 

o 

o 

20 . 

o 

o 

25 . 

o 

o 

30 . 

o 

o 

35 . 

o 

o 

40 . 

o 

o 

45 . 

. 00 

X 

50 

o 

o 

55. 

o 

o 

60 . 

o 

o 

65 . 

o 

o 

70 . 

o 

o 

75 . 

o 

o 

80 . 

. 00 

X 

85 

o 

o 

90 . 

, 00/ 











data ] 

betg_ 

_cnx/ 












X 

0 

o 

o 

5. 

o 

o 

10 . 

o 

o 

15 . 

o 

o 

20 . 

o 

o 

25 . 

o 

o 

30 . 

. 00 

X 

35 

o 

o 

40 . 

o 

o 

45 . 

o 

o 

50 . 

o 

o 

55 . 

o 

o 

60 . 

o 

o 

65 . 

. 00 

X 

70 

o 

o 

75. 

o 

o 

80 . 

o 

o 

85 . 

o 

o 

90 . 

o 

o 

95 . 

o 

o 

100 . 

. 00 

X 

105 

o 

o 

110 . 

o 

o 

115 . 

o 

o 

120 . 

o 

o 

125 . 

o 

o 

130 . 

o 

o 

135 . 

. 00 

X 

140 

o 

o 

145 . 

o 

o 

150 . 

o 

o 

155 . 

o 

o 

160 . 

o 

o 

165 . 

o 

o 

170 . 

. 00 

X 

175 

o 

o 

180 . 

, 00/ 












data ((doqt_cnx(i,j), i = 1,37),j = l,10) / 
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X 

48 . 

33, 

50 . 

83, 

54 . 

.17, 

57 . 

. 85, 

62 . 

.45, 

66. 

.58, 

69. 

82 

X 

72 . 

92, 

74 . 

55, 

76. 

. 02, 

75 . 

. 64, 

76. 

. 02, 

74 . 

.86, 

72 . 

16 

X 

68 . 

86, 

64 . 

59, 

61. 

.22, 

59. 

.20, 

62 . 

.92, 

64 . 

.43, 

64 . 

70 

X 

66. 

15, 

68 . 

47, 

72 . 

.61, 

75 . 

.98, 

78 . 

. 85, 

80 . 

.75, 

80 . 

24 

X 

79. 

00, 

76. 

5 6, 

73 . 

.71, 

70 . 

.91, 

69. 

. 08, 

65 . 

.78, 

66. 

23 

X 

65. 

99, 

66. 

76, 











X 

45. 

09, 

50 . 

78, 

54 . 

.36, 

57 . 

.10, 

60 . 

. 68, 

65 . 

.12, 

68 . 

39 

X 

71 . 

51, 

73. 

65, 

75. 

.56, 

74 . 

.92, 

75 . 

.16, 

73 . 

. 64, 

70 . 

98 

X 

67 . 

42, 

63. 

77, 

61. 

. 35, 

59. 

. 80, 

61. 

.13, 

64 . 

. 63, 

64 . 

50 

X 

65. 

45, 

68 . 

28, 

71. 

. 94, 

75 . 

. 83, 

79. 

.27, 

83 . 

. 05, 

82 . 

98 

X 

81. 

48, 

80 . 

21, 

76. 

.47, 

72 . 

.34, 

69. 

.27, 

66. 

.49, 

66. 

39 

X 

66. 

19, 

66. 

87, 











X 

4 6 . 

20, 

50 . 

93, 

54 . 

.49, 

56. 

. 82, 

60 . 

.07, 

63 . 

.17, 

66. 

63 

X 

70 . 

31, 

72 . 

19, 

72 . 

.89, 

73 . 

.59, 

73 . 

.27, 

71. 

.04, 

68 . 

10 

X 

65. 

61, 

62 . 

78, 

61. 

.31, 

59. 

.39, 

59. 

.13, 

64 . 

.07, 

64 . 

40 

X 

64 . 

97, 

67 . 

26, 

71. 

. 05, 

74 . 

.51, 

78 . 

.81, 

82 . 

.19, 

82 . 

03 

X 

81. 

4 6, 

79. 

58, 

74 . 

.98, 

70 . 

.78, 

68 . 

.20, 

65 . 

.89, 

66. 

16 

X 

65. 

17, 

66. 

02, 











X 

47 . 

74, 

52 . 

45, 

55 . 

.47, 

57 . 

.01, 

59. 

.71, 

62 . 

.72, 

66. 

67 

X 

70 . 

06, 

72 . 

24, 

73 . 

.07, 

73 . 

.17, 

71. 

.49, 

69. 

.57, 

66. 

62 

X 

64 . 

43, 

62 . 

31, 

61. 

.48, 

60 . 

.01, 

59. 

.72, 

64 . 

. 65, 

65 . 

4 6 

X 

65. 

38, 

67 . 

75, 

70 . 

.89, 

74 . 

. 03, 

76. 

.61, 

81. 

.44, 

80 . 

64 

X 

79. 

65, 

76. 

86, 

73 . 

.11, 

69. 

.25, 

66. 

.92, 

65 . 

.19, 

65. 

78 

X 

64 . 

86, 

65. 

93, 











X 

50 . 

86, 

54 . 

5 6, 

58 . 

. 32, 

59. 

.55, 

61. 

.81, 

64 . 

.17, 

66. 

35 

X 

70 . 

76, 

71. 

16, 

73 . 

.06, 

72 . 

.19, 

71. 

. 64, 

69. 

.07, 

67 . 

12 

X 

65. 

49, 

63. 

44, 

63 . 

.06, 

61. 

.58, 

60 . 

.77, 

65 . 

. 60, 

66. 

68 

X 

66. 

29, 

68 . 

98, 

71. 

.42, 

72 . 

.79, 

77 . 

.06, 

79. 

.76, 

78 . 

60 

X 

77 . 

03, 

76. 

87, 

72 . 

.24, 

69. 

.79, 

68 . 

. 02, 

66. 

. 03, 

66. 

65 

X 

66. 

04, 

66. 

76, 











X 

53. 

20, 

56. 

66, 

60 . 

.73, 

61. 

.17, 

63 . 

.06, 

65 . 

.51, 

69. 

65 

X 

72 . 

12, 

71. 

51, 

72 . 

. 35, 

71. 

.84, 

72 . 

.95, 

71. 

.24, 

68 . 

19 

X 

66. 

75, 

64 . 

79, 

64 . 

.72, 

62 . 

.95, 

62 . 

.07, 

66. 

.77, 

68 . 

37 

X 

67 . 

60, 

69. 

63, 

71. 

.31, 

76. 

.12, 

78 . 

. 08, 

77 . 

. 63, 

77 . 

68 

X 

77 . 

53, 

77 . 

09, 

74 . 

.25, 

71. 

,51, 

71. 

.45, 

68 . 

.74, 

69. 

44 

X 

67 . 

94, 

66. 

81, 











X 

55. 

96, 

58 . 

00, 

62 . 

.15, 

62 . 

.54, 

63 . 

. 85, 

67 . 

.91, 

73 . 

21 

X 

73. 

49, 

72 . 

76, 

73 . 

.55, 

72 . 

. 99, 

73 . 

.09, 

73 . 

.22, 

69. 

24 

X 

66. 

48, 

64 . 

69, 

65 . 

.52, 

63 . 

o 

CO 

63 . 

. 64, 

67 . 

.54, 

69. 

90 

X 

69. 

24, 

70 . 

47, 

75 . 

.04, 

78 . 

.72, 

78 . 

.77, 

78 . 

.42, 

77 . 

6 4 

X 

77 . 

35, 

77 . 

01, 

77 . 

. 05, 

72 . 

.73, 

68 . 

. 99, 

67 . 

.28, 

68 . 

76 

X 

68 . 

17, 

66. 

69, 











X 

59. 

36, 

60 . 

60, 

64 . 

.76, 

69. 

.11, 

71. 

. 30, 

69. 

.10, 

70 . 

12 

X 

72 . 

26, 

72 . 

32, 

73 . 

.14, 

72 . 

. 90, 

72 . 

. 66, 

70 . 

.59, 

70 . 

37 

X 

68 . 

91, 

67 . 

16, 

66. 

.49, 

64 . 

. 83, 

64 . 

. 80, 

67 . 

.92, 

70 . 

90 

X 

72 . 

52, 

75. 

64, 

75 . 

.39, 

76. 

. 05, 

77 . 

.49, 

77 . 

.40, 

77 . 

32 

X 

76. 

51, 

76. 

09, 

74 . 

.39, 

73 . 

.74, 

74 . 

.75, 

73 . 

.58, 

72 . 

23 

X 

69. 

35, 

68 . 

69, 











X 

58 . 

85, 

59. 

73, 

62 . 

.58, 

65 . 

. 30, 

67 . 

.40, 

67 . 

.54, 

67 . 

90 

X 

69. 

67, 

70 . 

76, 

71 . 

.95, 

71. 

.55, 

70 . 

.13, 

69. 

.28, 

68 . 

49 

X 

68 . 

19, 

67 . 

22, 

66. 

. 80, 

65 . 

.67, 

65 . 

.24, 

66. 

.54, 

69. 

99 

X 

72 . 

86, 

73. 

78, 

73 . 

.51, 

73 . 

.49, 

74 . 

. 94, 

75 . 

.09, 

75 . 

61 

X 

75. 

00, 

73. 

41, 

71. 

.34, 

70 . 

.61, 

71 . 

. 38, 

70 . 

.54, 

70 . 

90 

X 

68 . 

86, 

68 . 

37, 











X 

58 . 

28, 

59. 

14, 

61. 

.15, 

63 . 

.20, 

65 . 

.71, 

65 . 

.58, 

65 . 

92 

X 

67 . 

35, 

68 . 

14, 

69. 

.25, 

69. 

.15, 

67 . 

.45, 

66. 

. 65, 

66. 

67 

X 

66. 

90, 

65. 

80, 

66. 

.09, 

65 . 

.37, 

65 . 

. 00, 

65 . 

.44, 

67 . 

47 
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X 

69 

.48, 

71. 

,18, 

70 . 

.18, 

70 . 

.19, 

71 . 

.29, 

72 . 

.23, 

73 , 

. 32 

X 

72 

.47, 

70 . 

,40, 

68 . 

.46, 

68 . 

.31, 

68 . 

.49, 

68 . 

.07, 

68 , 

.28 

X 

66 

. 66, 

66. 

, 70/ 











data 

( (doqt_ 

_cnx(i,j) 

, i 

= 1, 

37),j=ll. 

20) / 






X 

56 

.56, 

57 . 

36, 

59 

.21, 

59. 

.91, 

62 . 

.22, 

63 . 

64, 

63 

. 81 

X 

6 4 

.57, 

66. 

21, 

65 

. 64, 

66. 

.36, 

64 . 

.36, 

64 . 

33, 

65 

. 14 

X 

6 4 

.11, 

62 . 

64, 

63 

.79, 

63 . 

.06, 

62 . 

.49, 

62 . 

92, 

6 4 

. 65 

X 

65 

.18, 

66. 

67, 

68 

. 38, 

67 . 

.76, 

68 . 

.28, 

69. 

16, 

68 

. 61 

X 

69 

.21, 

67 . 

11, 

65 

.98, 

65 . 

.78, 

65 . 

. 64, 

64 . 

87, 

65 

.43 

X 

63 

. 88, 

63. 

71, 











X 

53 

.34, 

54 . 

67, 

53 

. 35, 

57 . 

.50, 

58 . 

.31, 

57 . 

92, 

59 

. 93 

X 

59 

.76, 

62 . 

10, 

59 

.53, 

61. 

.78, 

60 . 

.42, 

61. 

38, 

60 

. 15 

X 

61 

.10, 

60 . 

75, 

58 

.22, 

59. 

.89, 

59. 

. 32, 

60 . 

18, 

58 

. 62 

X 

62 

.28, 

63. 

27, 

61 

. 69, 

63 . 

.81, 

62 . 

.11, 

64 . 

68, 

61 

.06 

X 

63 

. 35, 

60 . 

65, 

61 

.20, 

60 . 

. 30, 

61. 

.44, 

62 . 

44, 

59 

.23 

X 

60 

. 64, 

60 . 

45, 











X 

50 

. 69, 

50 . 

12, 

52 

.26, 

54 . 

. 66, 

54 . 

.42, 

56. 

20, 

54 

. 34 

X 

55 

.76, 

56. 

26, 

55 

.13, 

57 . 

. 08, 

57 . 

.13, 

55 . 

57, 

57 

. 70 

X 

56 

.71, 

57 . 

50, 

56 

.95, 

53 . 

.48, 

56. 

.73, 

54 . 

49, 

56 

. 83 

X 

58 

.49, 

57 . 

87, 

59 

.42, 

56. 

.70, 

58 . 

.51, 

58 . 

15, 

56 

.25 

X 

57 

. 52, 

57 . 

26, 

55 

.77, 

58 . 

.25, 

57 . 

. 83, 

58 . 

59, 

57 

. 60 

X 

53 

.84, 

57 . 

93, 











X 

47 

. 60, 

47 . 

35, 

49 

.51, 

48 . 

.73, 

52 . 

.26, 

50 . 

98, 

51 

.43 

X 

51 

.78, 

51. 

84, 

53 

.40, 

51. 

.26, 

51. 

.48, 

51. 

48, 

52 

.57 

X 

53 

. 85, 

52 . 

26, 

52 

. 99, 

50 . 

.48, 

53 . 

.18, 

51. 

74, 

53 

. 13 

X 

52 

. 30, 

54 . 

92, 

53 

. 35, 

52 . 

.51, 

52 . 

.73, 

51. 

83, 

54 

.27 

X 

51 

.92, 

52 . 

13, 

52 

.06, 

53 . 

.71, 

54 . 

.97, 

51. 

94, 

53 

.22 

X 

50 

. 33, 

54 . 

30, 











X 

45 

.89, 

45. 

73, 

47 

.01, 

46 . 

. 69, 

47 . 

.42, 

49 . 

17, 

48 

. 42 

X 

4 6 

.61, 

48 . 

14, 

48 

.57, 

48 . 

.23, 

4 6 . 

. 64, 

48 . 

57, 

50 

. 01 

X 

48 

.46, 

48 . 

44, 

48 

. 64, 

46 . 

. 60, 

48 . 

.61, 

46 . 

93, 

48 

.46 

X 

48 

.12, 

48 . 

48, 

50 

.54, 

49 . 

.50, 

47 . 

. 60, 

48 . 

5 6, 

48 

. 75 

X 

47 

. 90, 

4 6 . 

96, 

50 

. 03, 

51. 

.04, 

48 . 

.47, 

49 . 

40, 

49 

.50 

X 

47 

.25, 

50 . 

14, 











X 

44 

.21, 

42 . 

77, 

43 

. 35, 

44 . 

.73, 

44 . 

.17, 

44 . 

22, 

45 

. 30 

X 

4 6 

. 30, 

44 . 

31, 

43 

. 85, 

43 . 

. 90, 

45 . 

. 65, 

45 . 

83, 

45 

. 11 

X 

45 

.07, 

45. 

77, 

43 

.97, 

43 . 

.74, 

45 . 

.19, 

43 . 

64, 

43 

.53 

X 

45 

.70, 

44 . 

78, 

45 

. 05, 

46 . 

.24, 

47 . 

.23, 

45 . 

36, 

45 

. 12 

X 

45 

.44, 

47 . 

35, 

45 

. 05, 

45 . 

.14, 

4 6 . 

.16, 

46 . 

68, 

44 

. 62 

X 

44 

.61, 

4 6 . 

54, 











X 

42 

.78, 

43. 

07, 

43 

. 35, 

42 . 

. 68, 

43 . 

.12, 

43 . 

36, 

43 

.20 

X 

43 

.27, 

43. 

07, 

43 

.41, 

43 . 

.57, 

43 . 

.41, 

43 . 

43, 

43 

.56 

X 

44 

.15, 

44 . 

03, 

43 

.51, 

43 . 

.31, 

42 . 

.58, 

43 . 

57, 

44 

. 17 

X 

44 

.09, 

44 . 

12, 

44 

. 02, 

43 . 

.70, 

43 . 

.79, 

42 . 

97, 

43 

. 83 

X 

43 

.16, 

44 . 

11, 

44 

.19, 

44 . 

.72, 

44 . 

.97, 

44 . 

92, 

45 

.24 

X 

44 

. 80, 

44 . 

38, 











X 

43 

.29, 

43. 

97, 

43 

.92, 

43 . 

. 35, 

43 . 

.04, 

42 . 

51, 

42 

. 94 

X 

42 

.97, 

42 . 

93, 

42 

.97, 

42 . 

.87, 

42 . 

.81, 

42 . 

66, 

42 

.89 

X 

42 

.79, 

43. 

10, 

43 

.28, 

43 . 

.25, 

42 . 

.28, 

43 . 

50, 

42 

. 84 

X 

42 

.86, 

42 . 

80, 

42 

. 33, 

42 . 

.37, 

42 . 

.95, 

42 . 

48, 

42 

.55 

X 

42 

.48, 

41 . 

86, 

41 

. 30, 

42 . 

. 03, 

41 . 

.87, 

41 . 

60, 

41 

. 77 

X 

41 

. 88, 

42 . 

84, 











X 

42 

. 82, 

42 . 

82, 

42 

. 82, 

42 . 

. 82, 

42 . 

. 82, 

42 . 

82, 

42 

. 82 

X 

42 

. 82, 

42 . 

82, 

42 

. 82, 

42 . 

. 82, 

42 . 

. 82, 

42 . 

82, 

42 

. 82 

X 

42 

. 82, 

42 . 

82, 

42 

. 82, 

42 . 

. 82, 

42 . 

. 82, 

42 . 

82, 

42 

. 82 

X 

42 

. 82, 

42 . 

82, 

42 

. 82, 

42 . 

. 82, 

42 . 

. 82, 

42 . 

82, 

42 

. 82 


55 



X 

42 

. 82, 

42 . 

82, 

42 , 

. 82, 

42 . 

. 82, 

42 . 

. 82, 

42 . 

. 82, 

42 . 

. 82 

X 

42 

. 82, 

42 . 

82, 











X 

42 

.84, 

41. 

88, 

41 

.77, 

41 . 

60, 

41. 

.87, 

42 . 

. 03, 

41. 

30 

X 

41 

.86, 

42 . 

48, 

42 

.55, 

42 . 

48, 

42 . 

.95, 

42 . 

.37, 

42 . 

33 

X 

42 

. 80, 

42 . 

86, 

42 

.84, 

43 . 

50, 

42 . 

.28, 

43 . 

.25, 

43 . 

28 

X 

43 

.10, 

42 . 

79, 

42 

.89, 

42 . 

66, 

42 . 

.81, 

42 . 

.87, 

42 . 

97 

X 

42 

.93, 

42 . 

97, 

42 

. 94, 

42 . 

51, 

43 . 

.04, 

43 . 

. 35, 

43 . 

92 

X 

43 

.97, 

43. 

29/ 











data 

( (doqt_ 

_cnx(i,j) 

, 1 

= 1, 

37),j=21. 

30) / 






X 

44 

. 38, 

44 . 

80, 

45 

.24, 

44 . 

92, 

44 . 

.97, 

44 . 

.72, 

44 . 

.19 

X 

44 

.11, 

43. 

16, 

43 

. 83, 

42 . 

97, 

43 . 

.79, 

43 . 

.70, 

44 . 

. 02 

X 

44 

.12, 

44 . 

09, 

44 

.17, 

43 . 

57, 

42 . 

.58, 

43 . 

.31, 

43 . 

.51 

X 

44 

. 03, 

44 . 

15, 

43 

.56, 

43 . 

43, 

43 . 

.41, 

43 . 

.57, 

43 . 

.41 

X 

43 

.07, 

43. 

27, 

43 

.20, 

43 . 

36, 

43 . 

.12, 

42 . 

. 68, 

43 . 

. 35 

X 

43 

.07, 

42 . 

78, 











X 

4 6 

.54, 

44 . 

61, 

44 

. 62, 

46 . 

68, 

46 . 

.16, 

45 . 

.14, 

45 . 

. 05 

X 

47 

. 35, 

45. 

44, 

45 

.12, 

45 . 

36, 

47 . 

.23, 

46 . 

.24, 

45. 

. 05 

X 

44 

.78, 

45. 

70, 

43 

.53, 

43 . 

64, 

45 . 

.19, 

43 . 

.74, 

43 . 

. 97 

X 

45 

.77, 

45. 

07, 

45 

.11, 

45 . 

83, 

45 . 

. 65, 

43 . 

. 90, 

43 . 

. 85 

X 

44 

.31, 

4 6 . 

30, 

45 

. 30, 

44 . 

22, 

44 . 

.17, 

44 . 

.73, 

43 . 

. 35 

X 

42 

.77, 

44 . 

21, 











X 

50 

.14, 

47 . 

25, 

49 

.50, 

49 . 

40, 

48 . 

.47, 

51. 

.04, 

50 . 

. 03 

X 

4 6 

. 96, 

47 . 

90, 

48 

.75, 

48 . 

5 6, 

47 . 

. 60, 

49 . 

.50, 

50 . 

.54 

X 

48 

.48, 

48 . 

12, 

48 

.46, 

4 6 . 

93, 

48 . 

.61, 

4 6 . 

. 60, 

48 . 

. 64 

X 

48 

.44, 

48 . 

4 6, 

50 

.01, 

48 . 

57, 

4 6 . 

. 64, 

48 . 

.23, 

48 . 

.57 

X 

48 

.14, 

4 6 . 

61, 

48 

.42, 

49 . 

17, 

47 . 

.42, 

46 . 

. 69, 

47 . 

. 01 

X 

45 

.73, 

45. 

89, 











X 

54 

. 30, 

50 . 

33, 

53 

.22, 

51. 

94, 

54 . 

.97, 

53 . 

.71, 

52 . 

.06 

X 

52 

.13, 

51. 

92, 

54 

.27, 

51. 

83, 

52 . 

.73, 

52 . 

.51, 

53 . 

. 35 

X 

54 

.92, 

52 . 

30, 

53 

.13, 

51. 

74, 

53 . 

.18, 

50 . 

.48, 

52 . 

. 99 

X 

52 

.26, 

53. 

85, 

52 

.57, 

51. 

48, 

51. 

.48, 

51. 

.26, 

53 . 

.40 

X 

51 

.84, 

51. 

78, 

51 

.43, 

50 . 

98, 

52 . 

.26, 

48 . 

.73, 

49 . 

.51 

X 

47 

. 35, 

47 . 

60, 











X 

57 

.93, 

53. 

84, 

57 

. 60, 

58 . 

59, 

57 . 

. 83, 

58 . 

.25, 

55 . 

. 77 

X 

57 

.26, 

57 . 

52, 

56 

.25, 

58 . 

15, 

58 . 

.51, 

56. 

.70, 

59. 

. 42 

X 

57 

.87, 

58 . 

49, 

56 

. 83, 

54 . 

49, 

56. 

.73, 

53 . 

.48, 

56. 

. 95 

X 

57 

. 50, 

56. 

71, 

57 

.70, 

55 . 

57, 

57 . 

.13, 

57 . 

. 08, 

55. 

. 13 

X 

56 

.26, 

55. 

76, 

54 

.34, 

56. 

20, 

54 . 

.42, 

54 . 

. 66, 

52 . 

.26 

X 

50 

.12, 

50 . 

69, 











X 

60 

.45, 

60 . 

64, 

59 

.23, 

62 . 

44, 

61. 

.44, 

60 . 

. 30, 

61. 

.20 

X 

60 

. 65, 

63. 

35, 

61 

.06, 

64 . 

68, 

62 . 

.11, 

63 . 

.81, 

61. 

. 69 

X 

63 

.27, 

62 . 

28, 

58 

. 62, 

60 . 

18, 

59. 

. 32, 

59. 

.89, 

58 . 

.22 

X 

60 

.75, 

61. 

10, 

60 

.15, 

61. 

38, 

60 . 

.42, 

61. 

.78, 

59. 

.53 

X 

62 

.10, 

59. 

76, 

59 

.93, 

57 . 

92, 

58 . 

.31, 

57 . 

.50, 

53 . 

. 35 

X 

54 

.67, 

53. 

34, 











X 

63 

.71, 

63. 

88, 

65 

.43, 

64 . 

87, 

65 . 

. 64, 

65 . 

.78, 

65 . 

. 98 

X 

67 

.11, 

69. 

21, 

68 

.61, 

69. 

16, 

68 . 

.28, 

67 . 

.76, 

68 . 

. 38 

X 

66 

.67, 

65. 

18, 

64 

. 65, 

62 . 

92, 

62 . 

.49, 

63 . 

.06, 

63 . 

.79 

X 

62 

. 64, 

64 . 

11, 

65 

.14, 

64 . 

33, 

64 . 

.36, 

66. 

.36, 

65 . 

. 64 

X 

66 

.21, 

64 . 

57, 

63 

.81, 

63 . 

64, 

62 . 

.22, 

59. 

.91, 

59. 

.21 

X 

57 

. 36, 

56. 

5 6, 











X 

66 

.70, 

66. 

66, 

68 

.28, 

68 . 

07, 

68 . 

.49, 

68 . 

.31, 

68 . 

. 4 6 

X 

70 

.40, 

72 . 

47, 

73 

. 32, 

72 . 

23, 

71. 

.29, 

70 . 

.19, 

70 . 

. 18 

X 

71 

.18, 

69. 

48, 

67 

.47, 

65 . 

44, 

65 . 

. 00, 

65 . 

.37, 

66. 

.09 

X 

65 

. 80, 

66. 

90, 

66 

.67, 

66. 

65, 

67 . 

.45, 

69. 

.15, 

69. 

.25 

X 

68 

.14, 

67 . 

35, 

65 

.92, 

65 . 

58, 

65 . 

.71, 

63 . 

.20, 

61. 

. 15 


56 



X 

59 

.14, 

58 . 

,28, 











X 

68 

.37, 

68 . 

,86, 

70 

. 90, 

70 . 

.54, 

71 

. 38, 

70 . 

61, 

71 

. 34 

X 

73 

.41, 

75. 

, 00, 

75 

.61, 

75 . 

.09, 

74 

. 94, 

73 . 

49, 

73 

.51 

X 

73 

.78, 

72 . 

,86, 

69 

. 99, 

66. 

.54, 

65 

.24, 

65 . 

67, 

66 

. 80 

X 

67 

.22, 

68 . 

.19, 

68 

.49, 

69. 

.28, 

70 

.13, 

71. 

55, 

71 

. 95 

X 

70 

.76, 

69. 

,67, 

67 

. 90, 

67 . 

.54, 

67 

.40, 

65 . 

30, 

62 

.58 

X 

59 

.73, 

58 . 

, 85, 











X 

68 

. 69, 

69. 

, 35, 

72 

.23, 

73 . 

.58, 

74 

.75, 

73 . 

74, 

74 

.39 

X 

76 

.09, 

76. 

,51, 

77 

. 32, 

77 . 

.40, 

77 

.49, 

76. 

05, 

75 

.39 

X 

75 

. 64, 

72 . 

, 52, 

70 

. 90, 

67 . 

.92, 

6 4 

. 80, 

64 . 

83, 

66 

.49 

X 

67 

.16, 

68 . 

.91, 

70 

.37, 

70 . 

.59, 

72 

. 66, 

72 . 

90, 

73 

. 14 

X 

72 

. 32, 

72 . 

,26, 

70 

.12, 

69. 

.10, 

71 

. 30, 

69. 

11, 

64 

.76 

X 

60 

. 60, 

59. 

, 36/ 











data 

( (doqt_ 

_cnx(i,j) 

, i 

= 1, 

37),j=31. 

37) / 






X 

66 

. 69, 

68 . 

17, 

68 

.76, 

67 . 

.28, 

68 . 

. 99, 

72 . 

.73, 

77 

. 05 

X 

77 

.01, 

77 . 

35, 

77 

. 64, 

78 . 

.42, 

78 . 

.77, 

78 . 

.72, 

75 

. 04 

X 

70 

.47, 

69. 

24, 

69 

. 90, 

67 . 

.54, 

63 . 

. 64, 

63 . 

. 80, 

65 

.52 

X 

6 4 

. 69, 

66. 

48, 

69 

.24, 

73 . 

.22, 

73 . 

.09, 

72 . 

. 99, 

73 

.55 

X 

72 

.76, 

73. 

49, 

73 

.21, 

67 . 

.91, 

63 . 

. 85, 

62 . 

.54, 

62 

. 15 

X 

58 

. 00, 

55. 

96, 











X 

66 

.81, 

67 . 

94, 

69 

.44, 

68 . 

.74, 

71. 

.45, 

71 . 

.51, 

74 

.25 

X 

77 

.09, 

77 . 

53, 

77 

. 68, 

77 . 

. 63, 

78 . 

. 08, 

76. 

.12, 

71 

. 31 

X 

69 

. 63, 

67 . 

60, 

68 

.37, 

66. 

.77, 

62 . 

.07, 

62 . 

.95, 

64 

. 72 

X 

6 4 

.79, 

66. 

75, 

68 

.19, 

71. 

.24, 

72 . 

.95, 

71 . 

.84, 

72 

. 35 

X 

71 

.51, 

72 . 

12, 

69 

. 65, 

65 . 

.51, 

63 . 

.06, 

61. 

.17, 

60 

. 73 

X 

56 

. 66, 

53. 

20, 











X 

66 

.76, 

66. 

04, 

66 

. 65, 

66. 

. 03, 

68 . 

. 02, 

69. 

.79, 

72 

.24 

X 

76 

.87, 

77 . 

03, 

78 

. 60, 

79. 

.76, 

77 . 

.06, 

72 . 

.79, 

71 

. 42 

X 

68 

CO 

66. 

29, 

66 

. 68, 

65 . 

. 60, 

60 . 

.77, 

61. 

.58, 

63 

.06 

X 

63 

.44, 

65. 

49, 

67 

.12, 

69. 

.07, 

71. 

. 64, 

72 . 

.19, 

73 

.06 

X 

71 

.16, 

70 . 

76, 

66 

. 35, 

64 . 

.17, 

61. 

.81, 

59. 

.55, 

58 

. 32 

X 

54 

.56, 

50 . 

CO 











X 

65 

.93, 

64 . 

CO 

65 

.78, 

65 . 

.19, 

66. 

.92, 

69. 

.25, 

73 

. 11 

X 

76 

CO 

79. 

. 65, 

80 

. 64, 

81. 

.44, 

76. 

.61, 

74 . 

. 03, 

70 

.89 

X 

67 

.75, 

65. 

CO 

00 

65 

.46, 

64 . 

. 65, 

59. 

.72, 

60 . 

.01, 

61 

.48 

X 

62 

.31, 

64 . 

43, 

66 

. 62, 

69. 

.57, 

71. 

.49, 

73 . 

.17, 

73 

. 07 

X 

72 

.24, 

70 . 

06, 

66 

.67, 

62 . 

.72, 

59. 

.71, 

57 . 

.01, 

55 

.47 

X 

52 

.45, 

47 . 

74, 











X 

66 

. 02, 

65. 

17, 

66 

.16, 

65 . 

CO 

68 . 

.20, 

70 . 

.78, 

74 

. 98 

X 

79 

. 58, 

81. 

4 6, 

82 

. 03, 

82 . 

.19, 

78 . 

.81, 

74 . 

.51, 

71 

. 05 

X 

67 

.26, 

64 . 

97, 

64 

.40, 

64 . 

.07, 

59. 

.13, 

59. 

.39, 

61 

. 31 

X 

62 

.78, 

65. 

61, 

68 

.10, 

71. 

.04, 

73 . 

.27, 

73 . 

.59, 

72 

.89 

X 

72 

.19, 

70 . 

31, 

66 

. 63, 

63 . 

.17, 

60 . 

.07, 

56. 

. 82, 

54 

.49 

X 

50 

.93, 

4 6 . 

20, 











X 

66 

.87, 

66. 

19, 

66 

.39, 

66. 

.49, 

69. 

.27, 

72 . 

.34, 

76 

.47 

X 

80 

.21, 

81. 

48, 

82 

CO 

83 . 

. 05, 

79. 

.27, 

75 . 

. 83, 

71 

. 94 

X 

68 

.28, 

65. 

45, 

6 4 

.50, 

64 . 

. 63, 

61. 

.13, 

59. 

o 

CO 

61 

. 35 

X 

63 

.77, 

67 . 

42, 

70 

CO 

73 . 

. 64, 

75 . 

.16, 

74 . 

.92, 

75 

.56 

X 

73 

. 65, 

71. 

51, 

68 

.39, 

65 . 

.12, 

60 . 

CO 

57 . 

.10, 

54 

.36 

X 

50 

.78, 

45. 

09, 











X 

66 

.76, 

65. 

99, 

66 

.23, 

65 . 

.78, 

69. 

CO 

o 

70 . 

.91, 

73 

. 71 

X 

76 

.56, 

79. 

o 

o 

80 

.24, 

80 . 

.75, 

78 . 

. 85, 

75 . 

CO 

72 

. 61 

X 

68 

.47, 

66. 

,15, 

64 

.70, 

64 . 

.43, 

62 . 

.92, 

59. 

.20, 

61 

.22 

X 

6 4 

.59, 

68 . 

CO 

72 

.16, 

74 . 

CO 

76. 

. 02, 

75 . 

. 64, 

76 

. 02 

X 

74 

. 55, 

72 . 

,92, 

69 

. 82, 

66. 

.58, 

62 . 

.45, 

57 . 

. 85, 

54 

. 17 

X 

50 

CO 

CO 

48 . 

, 33/ 
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data 

( (yoqt. 

_cnx(i,j) 

, i 

= 1, 

37),j=l. 

10) / 






X 

0 

. 00, 

0 . 

00, 

0 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00 

X 

0 

. 00, 

0 . 

00, 

0 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00 

X 

0 

. 00, 

0 . 

00, 

0 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00 

X 

0 

. 00, 

0 . 

00, 

0 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00 

X 

0 

. 00, 

0 . 

00, 

0 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00, 

0 . 

. 00 

X 

0 

. 00, 

0 . 

00, 











X 

10 

. 82, 

11. 

61, 

11 

.18, 

9. 

.46, 

6. 

.53, 

4 . 

.40, 

1 . 

.76 

X 

0 

. 83, 

-0 . 

10, 

0 

.49, 

0 . 

.29, 

1 . 

. 66, 

3 . 

.73, 

6. 

. 37 

X 

8 

.25, 

9. 

74, 

10 

. 35, 

11 . 

. 68, 

11 . 

.48, 

9. 

.74, 

11 . 

. 81 

X 

10 

.16, 

5. 

41, 

2 

. 05, 

1 . 

.16, 

0 . 

. 69, 

0 . 

.57, 

0 . 

. 72 

X 

1 

.16, 

4 . 

36, 

5 

.41, 

6. 

. 69, 

8 . 

. 68, 

10 . 

.15, 

11 . 

. 34 

X 

10 

.21, 

9. 

40, 











X 

11 

.04, 

13. 

48, 

13 

.26, 

11 . 

. 33, 

8 . 

. 64, 

5 . 

. 83, 

3 . 

. 01 

X 

2 

.78, 

3. 

05, 

3 

.92, 

3 . 

.87, 

5 . 

.28, 

6. 

.40, 

8 . 

. 77 

X 

11 

. 65, 

12 . 

99, 

14 

. 96, 

16. 

.29, 

18 . 

. 03, 

17 . 

.76, 

16. 

. 61 

X 

14 

.27, 

10 . 

36, 

5 

.58, 

1 . 

.77, 

1 . 

. 35, 

0 . 

.59, 

1 . 

. 80 

X 

2 

.39, 

4 . 

04, 

5 

. 63, 

8 . 

.18, 

11 . 

. 80, 

14 . 

.40, 

17 . 

.53 

X 

19 

.72, 

20 . 

05, 











X 

9 

.26, 

11 . 

80, 

11 

.78, 

10 . 

.74, 

8 . 

.52, 

6. 

.57, 

4 . 

.48 

X 

4 

. 55, 

4 . 

94, 

5 

.51, 

5 . 

.41, 

6. 

.79, 

7 . 

.59, 

9. 

. 68 

X 

12 

. 66, 

14 . 

03, 

15 

.13, 

16. 

.27, 

17 . 

.36, 

17 . 

.67, 

16. 

.43 

X 

13 

.99, 

10 . 

97, 

8 

.77, 

5 . 

. 03, 

4 . 

.14, 

2 . 

. 99, 

3 . 

. 74 

X 

3 

.14, 

4 . 

52, 

5 

. 88, 

8 . 

.75, 

12 . 

.31, 

15 . 

.21, 

18 . 

.06 

X 

20 

.01, 

20 . 

69, 











X 

7 

. 80, 

9. 

65, 

10 

.49, 

9. 

.72, 

9. 

.15, 

7 . 

.12, 

7 . 

.24 

X 

6 

. 66, 

7 . 

06, 

7 

. 30, 

7 . 

.74, 

8 . 

.21, 

9. 

.92, 

11 . 

. 15 

X 

13 

.37, 

14 . 

01, 

14 

.78, 

15 . 

.06, 

16. 

. 00, 

16. 

.76, 

15 . 

.79 

X 

12 

.77, 

10 . 

90, 

10 

.12, 

8 . 

. 64, 

7 . 

.36, 

7 . 

.20, 

6. 

. 90 

X 

6 

.59, 

6. 

17, 

8 

.61, 

10 . 

.17, 

12 . 

.21, 

14 . 

.53, 

16. 

.79 

X 

17 

.91, 

18 . 

36, 











X 

7 

.90, 

8 . 

93, 

10 

.14, 

10 . 

.15, 

9. 

. 96, 

9. 

.98, 

9. 

. 92 

X 

8 

.51, 

8 . 

60, 

9 

.52, 

9. 

.55, 

9. 

.42, 

11 . 

. 90, 

12 . 

.76 

X 

13 

. 85, 

14 , 

17, 

14 

.92, 

14 . 

.72, 

15 . 

.29, 

16. 

.52, 

16. 

. 08 

X 

13 

. 33, 

12 . 

03, 

11 

. 80, 

11 . 

.77, 

9. 

.56, 

8 . 

.24, 

9. 

.54 

X 

9 

. 60, 

9. 

05, 

11 

. 08, 

12 . 

.84, 

12 . 

.73, 

13 . 

. 90, 

15 . 

.53 

X 

15 

.76, 

14 . 

78, 











X 

7 

. 88, 

8 . 

87, 

10 

.45, 

10 . 

.76, 

10 . 

.56, 

11 . 

. 33, 

12 . 

. 31 

X 

10 

.86, 

11 . 

19, 

12 

.17, 

11 . 

.43, 

11 . 

.93, 

13 . 

.74, 

14 . 

.52 

X 

14 

.77, 

15. 

06, 

15 

.45, 

15 . 

.01, 

15 . 

.72, 

17 . 

.23, 

17 . 

.76 

X 

15 

.29, 

13. 

65, 

14 

.57, 

14 . 

.72, 

12 . 

. 85, 

11 . 

.76, 

12 . 

. 10 

X 

11 

.56, 

10 . 

58, 

12 

. 83, 

13 . 

.25, 

12 . 

.84, 

13 . 

.79, 

14 . 

. 99 

X 

15 

.41, 

15. 

87, 











X 

7 

.93, 

7 . 

91, 

9 

. 60, 

12 . 

. 65, 

12 . 

. 62, 

12 . 

.57, 

13 . 

. 17 

X 

14 

.31, 

14 . 

19, 

14 

. 80, 

14 . 

.59, 

15 . 

.24, 

15 . 

.71, 

16. 

.09 

X 

15 

.75, 

15. 

40, 

15 

. 38, 

15 . 

.37, 

16. 

.55, 

17 . 

.28, 

18 . 

.57 

X 

17 

. 32, 

16. 

20, 

16 

.17, 

16. 

.39, 

16. 

.16, 

15 . 

.15, 

15. 

. 45 

X 

15 

. 00, 

14 . 

84, 

14 

.61, 

14 . 

.12, 

13 . 

. 82, 

14 . 

.36, 

14 . 

. 34 

X 

14 

. 36, 

14 . 

34, 











X 

9 

. 36, 

8 . 

95, 

8 

.89, 

12 . 

. 00, 

13 . 

.01, 

13 . 

.01, 

13 . 

. 74 

X 

14 

.47, 

15. 

53, 

16 

. 88, 

16. 

.29, 

16. 

.06, 

16. 

. 32, 

16. 

. 35 

X 

16 

.24, 

15. 

58, 

15 

. 66, 

15 . 

.86, 

17 . 

.21, 

16. 

.58, 

16. 

.29 

X 

18 

.01, 

17 . 

52, 

17 

. 00, 

16. 

.76, 

16. 

.79, 

17 . 

.15, 

17 . 

. 94 

X 

16 

.73, 

15. 

94, 

15 

.27, 

14 . 

.16, 

13 . 

.75, 

14 . 

.48, 

15 . 

.56 

X 

16 

.07, 

17 . 

01, 











X 

9 

.13, 

8 . 

37, 

7 , 

.86, 

10 . 

.97, 

13 . 

.39, 

12 . 

.76, 

13 . 

.16 
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X 

14 

. 15 , 

14 . 

CO 

15 , 

. 96 , 

15 . 

CO 

15 . 

. 93 , 

16 . 

. 06 , 

16 . 

.55 

X 

16 

. 65 , 

15 . 

, 59 , 

16 , 

. 15 , 

17 . 

. 38 , 

16 . 

. 97 , 

14 . 

. 80 , 

13 . 

. 94 

X 

15 

. 78 , 

17 , 

, 10 , 

16 , 

. 18 , 

16 . 

. 32 , 

16 . 

. 68 , 

16 . 

. 75 , 

17 . 

.09 

X 

16 

. 66 , 

16 . 

, 02 , 

14 , 

. 73 , 

14 . 

. 14 , 

13 . 

. 82 , 

14 . 

. 57 , 

15 . 

. 12 

X 

15 

. 51 , 

16 . 

, 43 / 











data 

( ( yoqt_cnx ( i , j ) 

, i 

= 1 , 

37 ), j = ll . 

20 ) / 






X 

8 

. 95 , 

8 . 

, 00 , 

7 

. 05 , 

7 . 

99 , 

10 . 

. 66 , 

12 . 

34 , 

12 . 

79 

X 

13 

. 65 , 

14 . 

, 43 , 

15 

. 04 , 

15 . 

21 , 

15 . 

. 31 , 

15 . 

61 , 

16 . 

54 

X 

15 

. 78 , 

14 . 

. 41 , 

15 

. 90 , 

13 . 

74 , 

13 . 

. 61 , 

12 . 

88 , 

11 . 

29 

X 

11 

. 08 , 

12 . 

, 70 , 

12 

. 95 , 

14 . 

00 , 

15 . 

. 16 , 

15 . 

90 , 

15 . 

74 

X 

15 

. 69 , 

14 . 

, 62 , 

14 

. 07 , 

13 . 

80 , 

14 . 

. 05 , 

13 . 

96 , 

13 . 

93 

X 

14 

. 36 , 

15 . 

, 29 , 











X 

7 

. 71 , 

6 . 

, 99 , 

5 

. 89 , 

3 . 

47 , 

8 . 

. 33 , 

5 . 

99 , 

10 . 

30 

X 

10 

. 08 , 

13 . 

, 57 , 

11 

. 83 , 

13 . 

88 , 

13 . 

. 09 , 

14 . 

43 , 

14 . 

24 

X 

14 

. 42 , 

13 . 

, 22 , 

8 

. 24 , 

7 . 

03 , 

5 . 

. 35 , 

6 . 

05 , 

4 . 

96 

X 

4 

. 61 , 

5 . 

, 89 , 

4 

. 40 , 

8 . 

42 , 

10 . 

. 50 , 

12 . 

76 , 

12 . 

47 

X 

13 

. 45 , 

12 . 

, 29 , 

12 

. 73 , 

11 . 

98 , 

12 . 

. 63 , 

11 . 

54 , 

8 . 

70 

X 

10 

. 06 , 

9 . 

, 81 , 











X 

4 

. 99 , 

4 . 

. 71 , 

4 

. 54 , 

2 . 

. 54 , 

0 . 

. 79 , 

1 . 

84 , 

6 . 

52 

X 

8 

. 45 , 

9 . 

, 55 , 

9 

. 48 , 

10 . 

CO 

CO 

11 . 

. 09 , 

10 . 

14 , 

12 . 

51 

X 

11 

CO 

11 . 

, 22 , 

4 

. 50 , 

6 . 

. 22 , 

1 . 

. 82 , 

2 . 

33 , 

2 . 

21 

X 

2 

. 75 , 

1 . 

, 70 , 

4 

. 43 , 

9 . 

. 21 , 

10 . 

. 70 , 

10 . 

39 , 

9 . 

66 

X 

10 

. 35 , 

9 . 

, 99 , 

8 

. 85 , 

10 . 

. 91 , 

10 . 

. 82 , 

9 . 

93 , 

5 . 

02 

X 

7 

. 00 , 

3 . 

. 46 , 











X 

2 

. 91 , 

2 . 

, 31 , 

1 

. 45 , 

2 . 

. 68 , 

-0 . 

. 24 , 

1 . 

74 , 

7 . 

37 

X 

7 

. 46 , 

7 . 

, 00 , 

8 

. 40 , 

6 . 

. 81 , 

6 . 

. 57 , 

7 . 

12 , 

9 . 

68 

X 

10 

. 81 , 

8 . 

, 20 , 

3 

. 90 , 

6 . 

. 25 , 

0 . 

. 97 , 

0 . 

68 , 

1 . 

07 

X 

6 

. 05 , 

2 . 

, 87 , 

5 

. 84 , 

7 . 

. 42 , 

6 . 

. 90 , 

6 . 

21 , 

8 . 

34 

X 

6 

. 46 , 

6 . 

, 16 , 

6 

. 61 , 

7 . 

. 81 , 

8 . 

. 78 , 

8 . 

25 , 

6 . 

23 

X 

6 

. 29 , 

2 . 

, 35 , 











X 

-1 

. 67 , 

0 . 

, 60 , 

1 

. 63 , 

0 . 

. 75 , 

3 . 

. 64 , 

3 . 

64 , 

2 . 

06 

X 

1 

. 45 , 

4 . 

, 33 , 

4 

. 83 , 

4 . 

. 99 , 

4 . 

. 33 , 

6 . 

27 , 

7 . 

58 

X 

5 

. 96 , 

3 . 

, 00 , 

3 

. 51 , 

3 . 

. 30 , 

0 . 

. 22 , 

2 . 

99 , 

2 . 

25 

X 

1 

. 99 , 

5 . 

, 40 , 

5 

. 14 , 

4 . 

. 00 , 

2 . 

. 33 , 

3 . 

59 , 

3 . 

93 

X 

3 

. 99 , 

2 . 

, 37 , 

3 

. 90 , 

5 . 

. 74 , 

5 . 

. 84 , 

3 . 

82 , 

2 . 

51 

X 

3 

. 80 , 

1 . 

, 20 , 











X 

-6 

. 08 , 

-2 . 

, 40 , 

-1 

. 82 , 

-1 . 

. 72 , 

-3 . 

. 72 , 

-1 . 

58 , 

2 . 

11 

X 

-1 

. 19 , 

- 3 . 

, 13 , 

-3 

. 45 , 

-1 . 

. 43 , 

3 . 

. 59 , 

2 . 

96 , 

-0 . 

24 

X 

-1 

. 57 , 

1 . 

, 33 , 

0 

. 34 , 

0 . 

. 59 , 

-2 . 

. 84 , 

0 . 

14 , 

0 . 

03 

X 

0 

. 73 , 

-1 . 

, 27 , 

-0 

. 19 , 

2 . 

. 70 , 

0 . 

. 61 , 

-3 . 

22 , 

-3 . 

96 

X 

-3 

. 24 , 

0 . 

, 23 , 

1 

. 76 , 

-0 . 

. 42 , 

-3 . 

. 31 , 

0 . 

23 , 

-2 . 

33 

X 

-2 

. 03 , 

-1 . 

, 55 , 











X 

-8 

. 30 , 

- 5 . 

, 22 , 

-5 

. 66 , 

-4 . 

cn 

CO 

-5 . 

. 02 , 

- 6 . 

CO 

-7 . 

36 

X 

-7 

. 00 , 

- 9 . 

, 73 , 

-6 

. 99 , 

-11 . 

. 92 , 

-8 . 

. 71 , 

-8 . 

. 04 , 

- 6 . 

78 

X 

-7 

. 65 , 

-7 . 

, 82 , 

-7 

. 24 , 

- 6 . 

. 32 , 

- 6 . 

. 18 , 

- 6 . 

. 99 , 

-7 . 

98 

X 

-8 

. 26 , 

-7 . 

, 89 , 

-6 

. 97 , 

-7 . 

. 87 , 

-8 . 

. 40 , 

-10 . 

. 39 , 

- 6 . 

64 

X 

-9 

. 66 , 

-7 . 

, 81 , 

-7 

. 50 , 

-7 . 

. 02 , 

-7 . 

. 63 , 

-7 . 

. 72 , 

-7 . 

35 

X 

-6 

. 70 , 

- 5 . 

. 77 , 











X 

-6 

. 72 , 

-11 . 

, 30 , 

-10 

. 36 , 

-10 . 

. 39 , 

-11 . 

. 16 , 

-10 . 

. 16 , 

-11 . 

99 

X 

■11 

. 34 , 

-11 . 

. 65 , 

-10 

. 53 , 

-10 . 

. 34 , 

-8 . 

. 61 , 

-8 . 

. 50 , 

-7 . 

60 

X 

-6 

. 96 , 

- 6 . 

, 90 , 

-7 

. 13 , 

-7 . 

. 11 , 

- 6 . 

. 19 , 

- 6 . 

. 32 , 

-7 . 

16 

X 

-7 

. 78 , 

-8 . 

, 16 , 

-7 

. 88 , 

-8 . 

. 91 , 

- 9 . 

. 87 , 

- 9 . 

. 35 , 

- 9 . 

33 

X 

-9 

. 77 , 

-8 . 

. 91 , 

-8 

. 08 , 

-8 . 

. 51 , 

-8 . 

. 09 , 

-7 . 

. 68 , 

-7 . 

54 

X 

-7 

. 44 , 

- 6 . 

. 49 , 











X 

-1 

. 95 , 

-1 . 

, 93 , 

-1 

. 41 , 

-1 . 

. 36 , 

-1 . 

. 53 , 

-0 . 

. 83 , 

-1 . 

96 

X 

-1 

. 22 , 

-0 . 

, 94 , 

-0 

. 60 , 

-0 . 

. 50 , 

0 . 

. 63 , 

0 . 

. 21 , 

0 . 

14 
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X 

0 

. 60 , 

0 . 

44 , 

0 

. 01 , 

-0 . 

. 39 , 

0 

o 

o 

0 

. 39 , 

-0 . 

01 

X 

-0 

. 44 , 

-0 . 

60 , 

-0 

. 14 , 

-0 . 

. 21 , 

-0 

. 63 , 

0 

. 50 , 

0 . 

60 

X 

0 

. 94 , 

1 . 

22 , 

1 

. 96 , 

0 . 

. 83 , 

1 

. 53 , 

1 

. 36 , 

1 . 

41 

X 

1 

. 93 , 

1 . 

95 , 











X 

6 

. 49 , 

7 . 

44 , 

7 

. 54 , 

7 . 

. 68 , 

8 

. 09 , 

8 

. 51 , 

8 . 

08 

X 

8 

. 91 , 

9 . 

77 , 

9 

. 33 , 

9 . 

. 35 , 

9 

. 87 , 

8 

. 91 , 

7 . 

88 

X 

8 

. 16 , 

7 . 

78 , 

7 

. 16 , 

6 . 

. 32 , 

6 

. 19 , 

7 

. 11 , 

7 . 

13 

X 

6 

. 90 , 

6 . 

96 , 

7 

. 60 , 

8 . 

. 50 , 

8 

. 61 , 

10 

. 34 , 

10 . 

53 

X 

11 

. 65 , 

11 . 

34 , 

11 

. 99 , 

10 . 

. 16 , 

11 

. 16 , 

10 

. 39 , 

10 . 

36 

X 

11 

. 30 , 

6 . 

72 / 











data 

( ( yoqt_cnx ( i , j ) 

, i 

= 1 , 

37 ), j = 21 . 

30 ) / 






X 

5 

. 77 , 
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. 57 , 

2 . 

. 95 , 

3 

.55 

X 

4 

. 34 , 

4 . 

93 , 

5 

. 64 , 

8 

. 33 , 

10 . 

. 05 , 

10 . 

. 77 , 

10 

. 14 

X 

5 

. 96 , 

0 . 

00 , 











X 

0 

. 00 , 

0 . 

90 , 

0 

. 30 , 

-2 

. 50 , 

-2 . 

. 44 , 

-1 . 

. 05 , 

-0 

.41 

X 

0 

. 02 , 

2 . 

10 , 

2 

. 53 , 

4 

. 01 , 

5 . 

. 22 , 

6 . 

. 21 , 

7 

. 37 

X 

9 

. 49 , 

6 . 

71 , 

2 

. 61 , 

2 

. 50 , 

4 . 

. 00 , 

3 . 

. 41 , 

3 

.40 

X 

1 

. 52 , 

0 . 

17 , 

0 

. 32 , 

1 

. 13 , 

1 . 

. 85 , 

3 . 

. 21 , 

3 

. 38 

X 

3 

. 85 , 

4 . 

49 , 

5 

. 40 , 

6 

. 83 , 

11 . 

. 78 , 

11 . 

. 53 , 

5 

.09 

X 

7 

. 12 , 

0 . 

00 / 











data 

( (loqt. 

_cnx ( i , j ) 

, i 

= 1 , 

37 ), j = 31 . 

37 ) / 






X 

0 

. 00 , 

4 . 

09 , 

5 

. 81 , 

5 

. 37 , 

2 . 

. 88 , 

0 

. 44 , 

-0 

. 93 

X 

0 

. 04 , 

2 . 

33 , 

2 

. 77 , 

4 

. 65 , 

6 . 

. 02 , 

6 

. 30 , 

4 

. 87 

X 

1 

. 26 , 

-1 . 

84 , 

-1 

. 22 , 

-0 

. 26 , 

3 . 

. 78 , 

4 

. 89 , 

4 

. 73 

X 

3 

. 96 , 

2 . 

53 , 

1 

. 95 , 

1 

. 12 , 

1 . 

. 90 , 

3 

. 54 , 

4 

.21 

X 

4 

. 96 , 

5 . 

67 , 

5 

. 61 , 

4 

. 13 , 

1 . 

. 53 , 

0 

. 97 , 

0 

.89 

X 

4 

. 61 , 

0 . 

00 , 











X 

0 

. 00 , 

6 . 

64 , 

7 

. 72 , 

4 

. 06 , 

2 . 

. 66 , 

1 

. 70 , 

1 

. 17 

X 

1 

. 66 , 

2 . 

58 , 

2 

. 67 , 

4 

. 37 , 

5 . 

. 54 , 

4 

. 30 , 

1 

. 38 

X 

-0 

. 51 , 

-4 . 

34 , 

-5 

. 58 , 

-2 

. 92 , 

5 . 

. 60 , 

7 

. 52 , 

7 

. 00 

X 

5 

. 56 , 

4 . 

31 , 

4 

. 35 , 

2 

. 77 , 

2 . 

. 51 , 

4 

. 46 , 

4 

.50 

X 

4 

. 21 , 

4 . 

86 , 

3 

. 94 , 

2 

. 06 , 

0 . 

. 32 , 

-0 

. 83 , 

-2 

. 12 

X 

1 

. 86 , 

0 . 

00 , 











X 

0 

. 00 , 

9 . 

26 , 

11 

. 36 , 

9 

. 44 , 

6 . 

. 49 , 

4 

. 24 , 

3 

.28 

X 

1 

. 49 , 

2 . 

82 , 

3 

. 53 , 

5 

. 33 , 

5 . 

. 28 , 

2 

. 69 , 

-0 

. 87 

X 

-3 

. 21 , 

-7 . 

30 , 

-9 

. 75 , 

-5 

. 22 , 

9 . 

. 07 , 

10 

. 70 , 

9 

. 82 

X 

8 

. 03 , 

6 . 

38 , 

6 

. 83 , 

5 

. 25 , 

4 . 

. 41 , 

4 

. 76 , 

4 

.41 

X 

4 

. 24 , 

3 . 

53 , 

2 

. 12 , 

-0 

. 06 , 

-1 . 

. 59 , 

-2 

. 88 , 

-4 

. 73 

X 

-1 

. 63 , 

0 . 

00 , 











X 

0 

. 00 , 

13 . 

17 , 

14 

. 46 , 

12 

. 22 , 

9 . 

. 09 , 

6 

. 09 , 

3 

.47 

X 

2 

. 86 , 

2 . 

75 , 

4 

. 55 , 

5 

. 63 , 

4 . 

. 19 , 

2 

. 42 , 

-2 

.19 

X 

-6 

. 65 , 

-11 . 

55 , 

-12 

. 90 , 

-8 

. 39 , 

11 . 

. 02 , 

13 

. 30 , 

12 

.47 

X 

11 

. 10 , 

9 . 

21 , 

8 

. 48 , 

6 

. 75 , 

4 . 

. 98 , 

5 

. 04 , 

4 

. 60 

X 

3 

. 94 , 

2 . 

65 , 

1 

. 40 , 

-0 

. 75 , 

-3 . 

. 52 , 

-5 

. 48 , 

-8 

. 32 

X 

-6 

. 26 , 

0 . 

00 , 











X 

0 

. 00 , 

15 . 

40 , 

17 

. 59 , 

14 

. 11 , 

11 . 

. 11 , 

8 

. 80 , 

7 

.06 

X 

6 

. 87 , 

5 . 

94 , 

6 

. 72 , 

4 

. 20 , 

2 . 

. 73 , 

-0 

. 02 , 

-4 

. 68 

X 

10 

. 26 , 

- 15 . 

45 , 

-15 

. 51 , 

-7 

. 92 , 

12 . 

. 28 , 

14 

. 56 , 

14 

. 11 

X 

12 

. 38 , 

10 . 

61 , 

9 

. 27 , 

8 

. 63 , 

7 . 

. 22 , 

5 

. 88 , 

5 

.19 

X 

3 

. 75 , 

2 . 

00 , 

-0 

. 30 , 

-3 

. 42 , 

-5 . 

. 88 , 

-8 

. 44 , 

-10 

. 87 

X 

-9 

. 05 , 

0 . 

00 , 











X 

0 

. 00 , 

13 . 

87 , 

19 

. 45 , 

16 

. 33 , 

13 . 

. 29 , 

10 

. 69 , 

9 

.86 

X 

9 

. 50 , 

4 . 

86 , 

5 

. 09 , 

4 

. 73 , 

1 . 

. 36 , 

-1 

. 00 , 

-5 

. 37 

X 

11 

. 96 , 

-17 . 

88 , 

-16 

. 98 , 

-9 

. 46 , 

7 . 

. 74 , 

16 

. 46 , 

16 

. 08 

X 

13 

. 98 , 

12 . 

17 , 

11 

. 94 , 

10 

. 88 , 

10 . 

. 14 , 

5 

. 45 , 

4 

.59 

X 

4 

. 23 , 

-0 . 

73 , 

-1 

. 99 , 

-5 

. 18 , 

-7 . 

. 00 , 

-9 

. 72 , 

-12 

.52 

X 

11 

. 26 , 

0 . 

00 , 











X 

0 

. 00 , 

12 . 

17 , 

20 

. 70 , 

16 

. 08 , 

14 . 

. 12 , 

12 

. 62 , 

11 

.57 

X 

10 

. 91 , 

4 . 

10 , 

2 

. 64 , 

-1 

. 58 , 

1 . 

. 00 , 

-1 

. 19 , 

-5 

.54 
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X 

-11 

. 76 , - 

■18 . 

, 90 , 

-17 . 

CO 

CO 

- 9 . 

. 52 , 

0 . 

. 82 , 

17 . 

. 13 , 

16 . 

.89 

X 

14 

. 79 , 

13 . 

, 22 , 

11 . 

. 99 , 

10 . 

. 85 , 

10 . 

. 08 , 

6 . 

. 26 , 

3 . 

. 67 

X 

3 

. 58 , 

-2 . 

. 19 , 

-3 . 

. 12 , 

- 6 . 

. 29 , 

-8 . 

. 78 , 

-10 . 

. 36 , 

-13 . 

.39 

X 

-13 

. 37 , 

0 . 

, 00 / 











data 

( (rmoqt 

_ cnx ( i . 

j ) , 1 = 1 , 

37 ) , 

j = l / 

10 ) / 






X 

0 

. 00 , 

0 . 

, 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 

X 

0 

. 00 , 

0 . 

, 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 

X 

0 

. 00 , 

0 . 

, 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 

X 

0 

. 00 , 

0 . 

, 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 

X 

0 

. 00 , 

0 . 

, 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 , 

0 . 

. 00 

X 

0 

. 00 , 

0 . 

, 00 , 











X 

0 

. 00 , 

- 3 . 

, 52 , 

-2 . 

. 86 , 

- 1 . 

. 86 , 

- 1 . 

. 40 , 

- 1 . 

. 40 , 

- 1 . 

,53 

X 

-1 

. 30 , 

-1 . 

, 13 , 

-1 . 

. 40 , 

-2 . 

. 72 , 

-3 . 

. 79 , 

-3 . 

. 92 , 

-2 . 

. 33 

X 

-2 

. 19 , 

- 1 . 

, 36 , 

0 . 

. 33 , 

-0 . 

. 10 , 

-0 . 

. 13 , 

-2 . 

. 79 , 

-3 . 

. 75 

X 

-4 

. 95 , 

- 3 . 

, 85 , 

-1 . 

. 89 , 

-0 . 

. 37 , 

0 . 

. 17 , 

-2 . 

. 06 , 

-2 . 

. 13 

X 

-1 

. 43 , 

-2 . 

. 56 , 

-2 . 

. 16 , 

-0 . 

. 86 , 

0 . 

. 73 , 

2 . 

. 33 , 

4 . 

.28 

X 

3 

. 39 , 

0 . 

, 00 , 











X 

0 

. 00 , 

-4 . 

, 92 , 

-3 . 

. 95 , 

-3 . 

. 06 , 

-2 . 

. 23 , 

- 1 . 

. 83 , 

-2 . 

. 03 

X 

-1 

. 96 , 

- 1 . 

. 56 , 

-2 . 

. 19 , 

-2 . 

. 69 , 

-2 . 

. 72 , 

-3 . 

. 82 , 

-3 . 

. 12 

X 

-2 

. 76 , 

-1 . 

, 83 , 

-0 . 

. 90 , 

-0 . 

. 80 , 

-0 . 

. 56 , 

-3 . 

. 65 , 

-7 . 

. 37 

X 

-9 

. 93 , 

- 9 . 

, 23 , 

- 6 . 

. 48 , 

-4 . 

. 12 , 

-3 . 

. 89 , 

-4 . 

. 65 , 

-5 . 

.51 

X 

-4 

. 95 , 

-4 . 

, 62 , 

-3 . 

. 95 , 

-1 . 

. 83 , 

-0 . 

. 10 , 

2 . 

. 69 , 

5 . 

. 35 

X 

4 

. 92 , 

0 . 

, 00 , 











X 

0 

. 00 , 

- 5 . 

, 12 , 

-4 . 

. 38 , 

-3 . 

. 89 , 

-2 . 

. 29 , 

-2 . 

. 19 , 

-2 . 

.23 

X 

-2 

. 16 , 

-1 . 

, 93 , 

-4 . 

. 02 , 

-5 . 

. 38 , 

-4 . 

. 92 , 

-4 . 

. 78 , 

-4 . 

. 85 

X 

-4 

. 68 , 

- 3 . 

, 32 , 

-2 . 

. 36 , 

-2 . 

. 13 , 

-2 . 

. 66 , 

- 9 . 

. 60 , 

-15 . 

. 08 

X 

-16 

. 64 , - 

■14 . 

, 15 , 

- 9 . 

. 86 , 

-7 . 

. 71 , 

-8 . 

. 70 , 

-8 . 

. 54 , 

-7 . 

. 31 

X 

-7 

. 11 , 

-4 . 

. 65 , 

-3 . 

. 09 , 

-1 . 

. 66 , 

1 . 

. 03 , 

3 . 

. 59 , 

4 . 

. 85 

X 

4 

. 68 , 

0 . 

, 00 , 











X 

0 

. 00 , 

-4 . 

, 75 , 

-4 . 

. 52 , 

-4 . 

. 19 , 

-3 . 

. 55 , 

-3 . 

. 26 , 

-4 . 

. 72 

X 

-4 

. 98 , 

-4 . 

, 55 , 

-5 . 

. 05 , 

- 6 . 

. 05 , 

-5 . 

. 51 , 

-5 . 

. 95 , 

-5 . 

. 68 

X 

-5 

. 75 , 

- 5 . 

, 02 , 

-4 . 

. 52 , 

-3 . 

. 99 , 

- 6 . 

. 11 , 

-14 . 

. 98 , 

-21 . 

.06 

X 

-21 

. 92 , - 

■18 . 

, 53 , 

-14 . 

. 61 , 

-14 . 

. 25 , 

-11 . 

. 96 , 

-10 . 

. 40 , 

- 9 . 

.50 

X 

-8 

. 24 , 

- 6 . 

, 21 , 

-4 . 

. 48 , 

-2 . 

. 36 , 

0 . 

. 40 , 

3 . 

. 02 , 

3 . 

. 85 

X 

2 

. 59 , 

0 . 

, 00 , 











X 

0 

. 00 , 

-4 . 

, 48 , 

-5 . 

. 68 , 

-4 . 

. 82 , 

-5 . 

. 08 , 

- 6 . 

. 48 , 

- 6 . 

. 78 

X 

-6 

. 08 , 

- 6 . 

, 58 , 

-7 . 

. 61 , 

-7 . 

. 34 , 

-5 . 

. 78 , 

-7 . 

. 04 , 

- 5 . 

. 81 

X 

-5 

. 81 , 

- 6 . 

. 74 , 

-7 . 

. 27 , 

-7 . 

. 71 , 

-12 . 

. 72 , 

-20 . 

. 46 , 

- 26 . 

.57 

X 

-25 

. 87 , - 

23 . 

, 62 , 

-20 . 

. 33 , 

-18 . 

. 73 , 

-15 . 

. 68 , 

-13 . 

. 25 , 

-11 . 

.09 

X 

-8 

. 80 , 

-7 . 

, 37 , 

-5 . 

. 68 , 

-3 . 

. 32 , 

2 . 

. 09 , 

6 . 

. 24 , 

3 . 

.49 

X 

3 

. 85 , 

0 . 

, 00 , 











X 

0 

. 00 , 

-4 . 

, 78 , 

-8 . 

. 04 , 

- 6 . 

. 68 , 

- 6 . 

. 14 , 

-8 . 

. 07 , 

-8 . 

. 70 

X 

-6 

. 74 , 

- 6 . 

, 78 , 

-7 . 

. 37 , 

-7 . 

. 44 , 

- 6 . 

. 88 , 

-7 . 

. 04 , 

-7 . 

. 01 

X 

-7 

. 24 , 

-7 . 

, 81 , 

- 9 . 

. 57 , 

-11 . 

. 43 , 

-18 . 

. 67 , 

-24 . 

. 21 , 

-30 . 

.06 

X 

-27 

. 47 , - 

■24 . 

, 81 , 

-24 . 

. 91 , 

-23 . 

. 15 , 

-18 . 

. 83 , 

-15 . 

. 98 , 

-13 . 

. 75 

X 

-11 

. 36 , 

- 9 . 

, 33 , 

-5 . 

. 71 , 

-2 . 

. 69 , 

-0 . 

. 50 , 

1 . 

. 76 , 

3 . 

.09 

X 

4 

. 32 , 

0 . 

, 00 , 











X 

0 

. 00 , 

- 6 . 

, 08 , 

-10 . 

. 03 , 

-15 . 

. 05 , 

-12 . 

. 19 , 

-8 . 

. 04 , 

-7 . 

. 94 

X 

-7 

. 97 , 

-7 . 

. 74 , 

-7 . 

. 84 , 

-7 . 

. 61 , 

-7 . 

. 44 , 

-8 . 

. 04 , 

-7 . 

. 84 

X 

-7 

. 94 , 

- 9 . 

, 50 , 

-11 . 

. 53 , 

-15 . 

. 35 , 

-22 . 

. 52 , 

-28 . 

. 13 , 

-32 . 

. 78 

X 

-31 

. 55 , - 

28 . 

, 90 , 

- 26 . 

. 67 , 

-24 . 

. 15 , 

-21 . 

. 02 , 

-18 . 

. 07 , 

-15 . 

. 68 

X 

-12 

. 56 , 

- 9 . 

. 17 , 

-7 . 

. 71 , 

-4 . 

. 55 , 

-1 . 

. 86 , 

1 . 

. 73 , 

4 . 

. 68 

X 

7 

. 34 , 

0 . 

, 00 , 











X 

0 

. 00 , 

- 3 . 

, 89 , 

-7 . 

. 41 , 

-11 . 

. 79 , 

-10 . 

. 50 , 

-7 . 

. 84 , 

- 6 . 

. 81 

X 

-7 

. 31 , 

-7 . 

, 67 , 

-8 . 

. 97 , 

-8 . 

. 74 , 

- 9 . 

. 00 , 

- 9 . 

. 80 , 

-8 . 

. 90 

X 

-9 

. 37 , - 

■10 . 

. 79 , 

-17 , 

. 17 , 

-17 . 

. 60 , 

-25 . 

. 67 , 

- 29 . 

. 53 , 

-33 . 

. 81 
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X 

-34 

. 24 , 

- 29 . 

03 , 

-24 . 

. 41 , 

-23 . 

. 22 , 

-20 . 

93 , 

-18 . 

. 10 , 

-15 . 

. 91 

X 

-13 

. 45 , 

- 11 . 

13 , 

- 9 . 

. 67 , 

-7 . 

. 17 , 

-3 . 

75 , 

-0 . 

. 07 , 

5 . 

. 18 

X 

3 

. 59 , 

0 . 

00 , 











X 

0 

. 00 , 

- 3 . 

62 , 

-5 . 

. 68 , 

-7 . 

. 54 , 

- 9 . 

13 , 

-5 . 

. 91 , 

-5 . 

.25 

X 

-5 

. 65 , 

- 6 . 

88 , 

- 9 . 

. 63 , 

-10 . 

. 36 , 

-10 . 

60 , 

-10 . 

. 96 , 

-10 . 

.40 

X 

-10 

. 70 , 

- 11 . 

82 , 

-18 . 

. 37 , 

-18 . 

. 73 , 

-25 . 

91 , 

-27 . 

. 63 , 

-28 . 

. 17 

X 

-27 

. 60 , 

- 25 . 

11 , 

-20 . 

. 29 , 

- 19 . 

. 16 , 

-18 . 

90 , 

-17 . 

. 77 , 

-15 . 

. 94 

X 

-14 

. 12 , 

-12 . 

65 , 

-11 . 

. 66 , 

- 9 . 

. 33 , 

-5 . 

98 , 

-0 . 

. 10 , 

3 . 

. 65 

X 

2 

. 16 , 

0 . 

00 / 











data 

( (rmoqt_cnx(i. 

j ) , 1 = 1 , 

37 ) , 

j = ll . 

20 ) / 





X 

0 

. 00 , 

-2 . 

69 , 

-2 . 

69 , 

-2 . 

. 29 , 

-3 . 

59 , 

-5 . 

. 48 , 

-5 . 

. 15 

X 

-6 

. 64 , 

- 5 . 

98 , 

-8 . 

04 , 

- 9 . 

. 13 , 

- 9 . 

43 , 

-10 . 

. 60 , 

-11 . 

,36 

X 

-10 

. 66 , 

- 13 . 

05 , 

-17 . 

04 , 

- 16 . 

. 04 , 

-22 . 

88 , 

-23 . 

. 42 , 

-20 . 

. 63 

X 

-18 

. 00 , 

- 16 . 

94 , 

-14 . 

91 , 

-15 . 

. 74 , 

-15 . 

91 , 

- 16 . 

. 57 , 

-14 . 

. 75 

X 

-13 

. 75 , 

- 13 . 

22 , 

-11 . 

99 , 

- 9 . 

. 47 , 

- 6 . 

14 , 

-0 . 

. 47 , 

1 . 

. 03 

X 

0 

. 13 , 

0 . 

00 , 











X 

0 

. 00 , 

-0 . 

90 , 

-0 . 

13 , 

1 . 

. 93 , 

-0 . 

96 , 

0 . 

. 80 , 

-3 . 

. 62 

X 

-4 

. 52 , 

-7 . 

17 , 

- 6 . 

64 , 

-8 . 

. 00 , 

- 9 . 

50 , 

-10 . 

. 23 , 

- 9 . 

.57 

X 

-9 

. 23 , 

-14 . 

12 , 

-10 . 

5 6 , 

-11 . 

. 49 , 

-17 . 

80 , 

-15 . 

. 78 , 

-13 . 

. 45 

X 

-11 

. 56 , 

- 9 . 

53 , 

-8 . 

84 , 

- 9 . 

. 93 , 

-11 . 

5 6 , 

-12 . 

. 36 , 

-12 . 

.52 

X 

-13 

. 09 , 

-11 . 

92 , 

-10 . 

93 , 

- 9 . 

. 50 , 

-7 . 

54 , 

-4 . 

. 28 , 

-3 . 

.52 

X 

-3 

. 69 , 

0 . 

00 , 











X 

0 

. 00 , 

-0 . 

83 , 

-0 . 

17 , 

1 . 

. 06 , 

1 . 

73 , 

2 . 

. 76 , 

-1 . 

. 66 

X 

-3 

. 09 , 

-4 . 

45 , 

-5 . 

68 , 

-7 . 

. 47 , 

-8 . 

77 , 

-8 . 

. 50 , 

- 9 . 

. 07 

X 

-10 

. 86 , 

-11 . 

96 , 

-8 . 

67 , 

-10 . 

. 70 , 

-12 . 

32 , 

-11 . 

. 16 , 

-11 . 

,39 

X 

-10 

. 36 , 

- 9 . 

23 , 

-8 . 

60 , 

-11 . 

, 13 , 

-11 . 

13 , 

-10 . 

. 96 , 

-10 . 

. 00 

X 

-11 

. 26 , 

-10 . 

89 , 

- 9 . 

73 , 

- 9 . 

. 10 , 

-5 . 

38 , 

-4 . 

. 95 , 

- 5 . 

. 85 

X 

-2 

. 52 , 

0 . 

00 , 











X 

0 

. 00 , 

-0 . 

43 , 

-0 . 

10 , 

-1 . 

. 03 , 

0 . 

80 , 

-0 . 

. 76 , 

-3 . 

. 85 

X 

-4 

. 02 , 

-4 . 

09 , 

-5 . 

15 , 

-5 . 

. 51 , 

- 6 . 

44 , 

-7 . 

. 44 , 

-8 . 

. 87 

X 

-9 

. 57 , 

- 6 . 

88 , 

-5 . 

65 , 

- 9 . 

. 50 , 

-8 . 

70 , 

-8 . 

. 34 , 

-8 . 

.54 

X 

-11 

. 06 , 

- 9 . 

20 , 

- 9 . 

53 , 

- 9 . 

. 47 , 

-8 . 

54 , 

-7 . 

. 91 , 

-8 . 

. 97 

X 

-8 

. 37 , 

- 9 . 

07 , 

-8 . 

57 , 
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64 , 

13 . 

52 , 

12 . 

65 

X 

13 

. 92 , 

12 . 

, 75 , 

12 . 

. 29 , 

13 . 

62 , 

14 . 

91 , 

13 . 

65 , 

14 . 

42 

X 

16 

. 01 , 

17 . 

. 64 , 

16 . 

. 84 , 

20 . 

4 6 , 

21 . 

95 , 

20 . 

93 , 

18 . 

67 

X 

20 

. 23 , 

17 . 

, 30 , 

14 . 

. 28 , 

12 . 

26 , 

13 . 

52 , 

11 . 

86 , 

11 . 

53 

X 

12 

. 36 , 

13 . 

, 78 , 

12 . 

. 69 , 

13 . 

25 , 

15 . 

74 , 

16 . 

14 , 

15 . 

41 
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X 

19 

. 26 , 

21 . 

09 , 











X 

16 

. 08 , 

15 . 

28 , 

16 . 

41 , 

17 . 

. 87 , 

15 . 

68 , 

10 . 

. 86 , 

8 . 

. 93 

X 

9 

. 57 , 

10 . 

76 , 

10 . 

96 , 

11 . 

. 16 , 

10 . 

20 , 

9 . 

. 73 , 

10 . 

.89 

X 

12 

. 69 , 

14 . 

25 , 

15 . 

01 , 

18 . 

. 30 , 

18 . 

20 , 

16 . 

. 87 , 

16 . 

. 87 

X 

17 

. 44 , 

14 . 

81 , 

9 . 

96 , 

9 . 

. 07 , 

9 . 

40 , 

9 . 

. 03 , 

9 . 

.50 

X 

9 

. 67 , 

9 . 

67 , 

8 . 

47 , 

9 . 

. 30 , 

12 . 

75 , 

13 . 

. 88 , 

16 . 

. 87 

X 

18 

. 30 , 

19 . 

73 , 











X 

11 

. 82 , 

11 . 

29 , 

11 . 

49 , 

11 . 

. 66 , 

12 . 

4 6 , 

6 . 

. 84 , 

5 . 

. 31 

X 

6 

. 31 , 

6 . 

68 , 

5 . 

98 , 

7 . 

. 24 , 

7 . 

14 , 

6 . 

. 68 , 

6 . 

.54 

X 

8 

. 00 , 

9 . 

60 , 

10 . 

03 , 

13 . 

. 55 , 

13 . 

25 , 

12 . 

. 29 , 

10 . 

. 03 

X 

10 

. 13 , 

9 . 

00 , 

5 . 

02 , 

4 . 

. 75 , 

6 . 

14 , 

4 . 

. 82 , 

6 . 

. 11 

X 

5 

. 98 , 

5 . 

08 , 

4 . 

35 , 

4 . 

. 98 , 

8 . 

07 , 

10 . 

. 70 , 

13 . 

. 42 

X 

13 

. 82 , 

14 . 
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data 

( ( ymoqt _ cnx ( i . 

j ) , 1 = 1 , 

37 ) , 

j = ll . 

20 ) / 





X 

6 

. 24 , 

6 . 

. 11 , 

6 . 

. 05 , 

3 . 

89 , 

4 . 

25 , 

1 . 

93 , 

0 . 

.40 

X 

0 

. 27 , 

1 . 

, 00 , 

-1 . 

. 13 , 

1 . 

10 , 

1 . 

03 , 

2 . 

09 , 

1 . 

.86 

X 

4 

. 45 , 

4 . 

, 22 , 

5 . 

. 68 , 

7 . 

64 , 

8 . 

14 , 

6 . 

78 , 

4 . 

. 12 

X 

1 

. 36 , 

1 . 

, 53 , 

-2 . 

. 56 , 

-2 . 

89 , 

-2 . 

82 , 

-0 . 

13 , 

-1 . 

. 30 

X 

0 

. 70 , 

-0 . 

. 47 , 

-0 . 

. 40 , 

0 . 

90 , 

4 . 

42 , 

5 . 

88 , 

7 . 

. 17 

X 

6 

. 61 , 

7 . 

, 01 , 











X 

-2 

. 13 , 

-1 . 

, 30 , 

-3 . 

. 85 , 

-5 . 

68 , 

-4 . 

65 , 

- 9 . 

96 , 

- 9 . 

. 03 

X 

-9 

. 93 , 

- 5 . 

, 12 , 

-11 . 

. 49 , 

-4 . 

62 , 

-8 . 

40 , 

- 6 . 

24 , 

- 5 . 

.25 

X 

0 

. 20 , 

-4 . 

, 88 , 

-3 . 

. 59 , 

-1 . 

73 , 

-2 . 

52 , 

-2 . 

92 , 

- 6 . 

. 68 

X 

-7 

. 71 , 

-8 . 

, 57 , 

-13 . 

. 32 , 

-12 . 

69 , 

-13 . 

42 , 

- 9 . 

03 , 

-12 . 

. 95 

X 

-6 

. 94 , 

- 9 . 

, 10 , 

-7 . 

. 67 , 

-7 . 

11 , 

-2 . 

49 , 

-4 . 

42 , 

-4 . 

. 88 

X 

-3 

. 29 , 

- 3 . 

, 39 , 











X 

-10 

. 56 , 

-10 . 

, 06 , 

-11 . 

. 63 , 

-13 . 

25 , 

-17 . 

17 , 

- 16 . 

67 , 

-20 . 

.89 

X 

-17 

. 14 , 

-17 . 

, 40 , 

-22 . 

. 55 , 

-18 . 

40 , 

-17 . 

07 , 

-18 . 

70 , 

-11 . 

.29 

X 

-15 

. 31 , 

-12 . 

, 06 , 

-12 . 

. 16 , 

-12 . 

5 6 , 

-12 . 

29 , 

-13 . 

65 , 

-14 . 

. 95 

X 

-15 

. 74 , 

-20 . 

, 53 , 

- 19 . 

. 20 , 

-23 . 

72 , 

- 19 . 

CO 

-21 . 

06 , 

-24 . 

. 18 

X 

-19 

. 56 , 

-18 . 

, 10 , 

-20 . 

. 53 , 

-12 . 

72 , 

-13 . 

52 , 

-10 . 

73 , 

-14 . 

. 12 

X 

-11 

. 09 , 

-11 . 

, 36 , 











X 

-20 

. 53 , 

-18 . 

, 43 , 

-22 . 

. 72 , 

-21 . 

42 , 

-24 . 

91 , 

- 29 . 

CO 

- 29 . 

. 93 

X 

-30 

. 33 , 

-32 . 

, 45 , 

- 26 . 

. 87 , 

-32 . 

55 , 

-30 . 

96 , 

- 29 . 

. 16 , 

-28 . 

.56 

X 

-23 

. 15 , 

-20 . 

, 23 , 

-23 . 

CO 

o 

-21 . 

52 , 

-22 . 

CO 

-22 . 

. 75 , 

- 26 . 

.24 

X 

-25 

. 18 , 

-28 . 

. 46 , 

-32 . 

. 98 , 

-31 . 

79 , 

-33 . 

12 , 

-34 . 

. 74 , 

- 29 . 

.23 

X 

-35 

. 11 , 

- 33 . 

, 55 , 

-31 . 

. 16 , 

-27 . 

53 , 

-21 . 

95 , 

-20 . 

. 00 , 

-24 . 

.55 

X 

-21 

. 42 , 

-21 . 

, 89 , 











X 

-34 

. 51 , 

- 33 . 

, 28 , 

-32 . 

. 98 , 

- 36 . 

07 , 

-35 . 

01 , 

-35 . 

. 94 , 

-41 . 

. 65 

X 

-45 

. 01 , 

-42 . 

, 61 , 

-41 . 

. 75 , 

-43 . 

61 , 

-48 . 

43 , 

-45 . 

. 11 , 

- 36 . 

. 17 

X 

-31 

. 95 , 

-34 . 

, 84 , 

-30 . 

. 52 , 

-32 . 

42 , 

-35 . 

57 , 

-32 . 

. 58 , 

-33 . 

. 91 

X 

-38 

. 70 , 

- 35 . 

. 11 , 

-37 . 

. 70 , 

-43 . 

41 , 

-47 . 

86 , 

-45 . 

. 14 , 

-44 . 

.28 

X 

-44 

. 64 , 

-47 . 

, 00 , 

-42 . 

. 45 , 

-35 . 

91 , 

-33 . 

05 , 

-37 . 

. 37 , 

-33 . 

. 08 

X 

-34 

. 41 , 

-34 . 

, 38 , 











X 

-43 

. 31 , 

- 43 . 

, 78 , 

-44 . 

. 04 , 

-43 . 

91 , 

— 4 6 . 

53 , 

— 4 6 . 

. 37 , 

-45 . 

. 14 

X 

-47 

. 80 , 

- 53 . 

, 08 , 

-53 . 

. 87 , 

-53 . 

77 , 

-53 . 

71 , 

-46 . 

. 67 , 

-46 . 

.23 

X 

— 4 6 

. 14 , 

- 43 . 

, 48 , 

— 4 6 . 

. 60 , 

-46 . 

37 , 

-45 . 

84 , 

— 4 6 . 

. 70 , 

— 4 6 . 

. 30 

X 

— 4 6 

. 14 , 

-49 . 

, 95 , 

-49 . 

. 39 , 

-47 . 

30 , 

-49 . 

49 , 

-52 . 

. 51 , 

-52 . 

. 38 

X 

-51 

. 75 , 

-49 . 

, 72 , 

-45 . 

. 17 , 

— 4 6 . 

67 , 

-47 . 

07 , 

-45 . 

. 17 , 

-45 . 

. 14 

X 

-45 

. 01 , 

- 43 . 

, 84 , 











X 

-41 

. 42 , 

— 4 6 . 

. 97 , 

-48 . 

. 03 , 

-49 . 

82 , 

-51 . 

15 , 

-49 . 

. 26 , 

-48 . 

.29 

X 

-49 

. 19 , 

-40 . 

, 42 , 

-44 . 

. 54 , 

- 36 . 

47 , 

-43 . 

48 , 

-44 . 

. 91 , 

— 4 6 . 

. 73 

X 

-45 

. 14 , 

-44 . 

, 81 , 

-44 . 

. 31 , 
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14 , 

-46 . 

07 , 

-47 . 

. 63 , 
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X 

-47 

. 76 , 

-49 . 

, 02 , 
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. 81 , 

-50 . 

92 , 

-48 . 

96 , 

-43 . 

. 74 , 

-47 . 

. 70 

X 

-44 

. 94 , 

-48 . 

, 86 , 

-49 . 

. 86 , 

-50 . 

19 , 

-48 . 

13 , 

-47 . 

. 56 , 

-47 . 

. 63 

X 

-47 

. 26 , 

-47 . 

, 23 , 
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X 

-18 

. 33 , 

-4 

. 95 , 

-8 . 

57 , 

-10 . 

33 , 

-13 

. 42 , 

- 21 . 

82 , 

-17 

. 34 

X 

-25 

. 14 , 

-26 

. 84 , 

-35 . 

17 , 

-32 . 

38 , 

-33 

. 81 , 

- 29 . 

13 , 

-31 

.29 

X 

-25 

. 04 , 

-24 

. 28 , 

- 21 . 

89 , 

-24 . 

65 , 

-23 

. 32 , 

-23 . 

38 , 

-23 

. 88 

X 

-26 

. 24 , 

-30 

. 23 , 

-30 . 

03 , 

- 36 . 

37 , 

-38 

. 23 , 

-41 . 

75 , 

-43 

. 05 

X 

-42 

. 32 , 

-39 

. 63 , 

-40 . 

59 , 

- 36 . 

20 , 

-37 

. 00 , 

-35 . 

21 , 

-36 

. 70 

X 

-35 

. 51 , 

-33 

. 51 , 











X 

0 

. 07 , 

15 

. 28 , 

14 . 

05 , 

12 . 

46 , 

11 

. 79 , 

7 . 

21 , 

11 

. 63 

X 

7 

. 24 , 

7 

. 74 , 

3 . 

92 , 

4 . 

68 , 

2 

. 23 , 

3 . 

62 , 

-0 

. 63 

X 

2 

. 59 , 

0 

. 96 , 

1 . 

00 , 

-0 . 

63 , 

0 

. 00 , 

0 . 

63 , 

-1 

. 00 

X 

-0 

. 96 , 

-2 

. 59 , 

0 . 

63 , 

-3 . 

62 , 

-2 

. 23 , 

-4 . 

68 , 

-3 

. 92 

X 

-7 

. 74 , 

-7 

. 24 , 

- 11 . 

63 , 

-7 . 

21 , 

-11 

. 79 , 

-12 . 

4 6 , 

-14 

. 05 

X 

-15 

. 28 , 

-0 

. 07 , 











X 

33 

. 51 , 

35 

. 51 , 

36 . 

70 , 

35 . 

21 , 

37 

. 00 , 

36 . 

20 , 

40 

.59 

X 

39 

. 63 , 

42 

. 32 , 
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05 , 

41 . 

75 , 

38 

. 23 , 

36 . 

37 , 

30 

. 03 

X 

30 

. 23 , 

26 

. 24 , 

23 . 

88 , 

23 . 

38 , 

23 

. 32 , 

24 . 

65 , 

21 

.89 

X 

24 

. 28 , 

25 

. 04 , 

31 . 

29 , 

29 . 

13 , 

33 

. 81 , 

32 . 

38 , 

35 

. 17 

X 

26 

. 84 , 

25 

. 14 , 

17 . 

34 , 

21 . 

82 , 

13 

. 42 , 

10 . 

33 , 

8 

.57 

X 

4 . 

95 , 

18 . 
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data 

( (ymoqt 

_cnx(i. 

j) , 1 = 1, 

37) , 

j=21. 

30) / 





X 

47 

.23, 

47 . 

26, 

47 . 

. 63, 

47 . 

5 6, 

48 . 

13, 

50 . 

19, 

49. 

.86 

X 

48 

.86, 

44 . 

94, 

47 . 

.70, 

43 . 

74, 

48 . 

96, 

50 . 

92, 
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. 81 

X 

49 

. 02, 

47 , 

76, 

48 . 

.09, 

47 . 

63, 

4 6 . 

07, 

4 6 . 

14, 

44 . 

. 31 

X 

44 

.81, 

45. 

14, 

46 . 

.73, 

44 . 

91, 

43 . 

48, 

36. 

47, 

44 . 

.54 

X 

40 

.42, 

49 . 

19, 

48 . 

.29, 

49 . 

26, 

51. 

15, 

49 . 

82, 

48 . 

. 03 

X 

4 6 

.97, 

41 . 

42, 











X 

43 

.84, 

45. 

01, 

45 . 

.14, 

45 . 

17, 

47 . 

07, 

46 . 

67, 

45 . 

. 17 

X 

49 

.72, 

51. 

75, 

52 . 

. 38, 

52 . 

51, 

49 . 

49, 

47 . 

30, 

49 . 

.39 

X 

49 

.95, 

4 6 . 

14, 

46 . 

. 30, 

46 . 

70, 

45 . 

84, 

46 . 

37, 

46 . 

. 60 

X 

43 

.48, 

4 6 . 

14, 

4 6 . 

.23, 

4 6 . 

67, 

53 . 

71, 

53 . 

77, 

53 . 

. 87 

X 

53 

. 08, 

47 . 

80, 

45 . 

.14, 

4 6 . 

37, 

4 6 . 

53, 

43 . 

91, 

44 . 

. 04 

X 

43 

.78, 

43. 

31, 











X 

34 

. 38, 

34 . 

41, 

33 . 

. 08, 

37 . 

37, 

33 . 

05, 

35 . 

91, 

42 . 

. 45 

X 

47 

. 00, 

44 . 

64, 

44 . 

.28, 

45 . 

14, 

47 . 

86, 

43 . 

41, 

37 . 

. 70 

X 

35 

.11, 

38 . 

70, 

33 . 

.91, 

32 . 

58, 

35 . 

57, 

32 . 

42, 

30 . 

.52 

X 

34 

.84, 

31. 

95, 

36. 

.17, 

45 . 

11, 

48 . 

43, 

43 . 

61, 

41. 

. 75 

X 

42 

.61, 

45. 

01, 

41. 

. 65, 

35 . 

94, 

35 . 

01, 

36. 

07, 

32 . 

. 98 

X 

33 

.28, 

34 . 

51, 











X 

21 

.89, 

21. 

42, 

24 . 

.55, 

20 . 

00, 

21. 

95, 

27 . 

53, 

31. 

.16 

X 

33 

. 55, 

35. 

11, 

29. 

.23, 

34 . 

74, 

33 . 

12, 

31. 

79, 

32 . 

. 98 

X 

28 

.46, 

25. 

18, 

26. 

.24, 

22 . 

75, 

22 . 

98, 

21. 

52, 

23 . 

. 08 

X 

20 

.23, 

23. 

15, 

28 . 

.56, 

29. 

16, 

30 . 

96, 

32 . 

55, 

26. 

. 87 

X 

32 

.45, 

30 . 

33, 

29. 

.93, 

29. 

86, 

24 . 

91, 

21. 

42, 

22 . 

. 72 

X 

18 

.43, 

20 . 

53, 











X 

11 

. 36, 

11. 

09, 

14 . 

.12, 

10 . 

73, 

13 . 

52, 

12 . 

72, 

20 . 

.53 

X 

18 

.10, 

19. 

5 6, 

24 . 

.18, 

21. 

06, 

19. 

86, 

23 . 

72, 

19. 

.20 

X 

20 

. 53, 

15. 

74, 

14 . 

.95, 

13 . 

65, 

12 . 

29, 

12 . 

5 6, 

12 . 

.16 

X 

12 

.06, 

15. 

31, 

11 . 

.29, 

18 . 

70, 

17 . 

07, 

18 . 

40, 

22 . 

.55 

X 

17 

.40, 

17 . 

14, 

20 . 

CO 

16. 

67, 

17 . 

17, 

13 . 

25, 

11. 

. 63 

X 

10 

.06, 

10 . 

5 6, 











X 

3 

.39, 

3. 

29, 

4 . 

CO 

CO 

4 . 

42, 

2 . 

49, 

7 . 

11, 

7 . 

. 67 

X 

9 

.10, 

6. 

94, 

12 . 

.95, 

9. 

03, 

13 . 

42, 

12 . 

69, 

13 . 

. 32 

X 

8 

.57, 

7 . 

71, 

6. 

. 68, 

2 . 

92, 

2 . 

52, 

1. 

73, 

3 . 

,59 

X 

4 

. 88, 

-0 . 

20, 

5 . 

.25, 

6. 

24, 

8 . 

40, 

4 . 

62, 

11. 

.49 

X 

5 

.12, 

9. 

93, 

9. 

. 03, 

9. 

96, 

4 . 

65, 

5 . 

68, 

3 . 

. 85 

X 

1 

. 30, 

2 . 

13, 











X 

-7 

.01, 

-6. 

61, 

-7 . 

.17, 

-5 . 

. 88, 

-4 . 

42, 

-0 . 

. 90, 

0 . 

.40 
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X 
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, 70 , 

1 . 

. 30 , 

0 . 

13 , 

2 . 

82 , 

2 . 

CO 

2 . 

56 

X 

-1 

. 53 , 

-1 . 

, 36 , 

-4 . 

. 12 , 

- 6 . 

78 , 

-8 . 

14 , 

-7 . 

. 64 , 

-5 . 

68 

X 

-4 

. 22 , 

-4 , 

, 45 , 

-1 . 

. 86 , 

-2 . 

09 , 

- 1 . 

03 , 

-1 . 

. 10 , 

1 . 

13 

X 

-1 

. 00 , 

-0 . 

, 27 , 

-0 . 

. 40 , 

- 1 . 

93 , 

-4 . 

25 , 

-3 . 

. 89 , 

- 6 . 

05 

X 

-6 

. 11 , 

- 6 . 

, 24 , 











X 

-14 

. 68 , 

- 13 . 

, 82 , 

-13 . 

. 42 , 

-10 . 

70 , 

-8 . 

07 , 

-4 . 

. 98 , 

-4 . 

35 

X 

-5 

. 08 , 

- 5 . 

, 98 , 

- 6 . 

. 11 , 

-4 . 

82 , 

- 6 . 

14 , 

-4 . 

. 75 , 

-5 . 

02 

X 

-9 

. 00 , 

-10 . 

, 13 , 

-10 . 

. 03 , 

-12 . 

29 , 

-13 . 

25 , 

-13 . 

. 55 , 

-10 . 

03 

X 

-9 

. 60 , 

-8 . 

, 00 , 

- 6 . 

. 54 , 

- 6 . 

68 , 

-7 . 

14 , 

-7 . 

. 24 , 

-5 . 

98 

X 

-6 

. 68 , 

- 6 . 

, 31 , 

-5 . 

. 31 , 

- 6 . 

84 , 

-12 . 

46 , 

-11 . 

. 66 , 

-11 . 

49 

X 

-11 

. 29 , 

-11 . 

, 82 , 











X 

-19 

. 73 , 

-18 . 

, 30 , 

- 16 . 

. 87 , 

-13 . 

88 , 

-12 . 

75 , 

- 9 . 

. 30 , 

-8 . 

47 

X 

-9 

. 67 , 

- 9 . 

, 67 , 

- 9 . 

. 50 , 

- 9 . 

03 , 

- 9 . 

40 , 

- 9 . 

. 07 , 

- 9 . 

96 

X 

-14 

. 81 , 

-17 . 

. 44 , 

- 16 . 

. 87 , 

- 16 . 

87 , 

-18 . 

20 , 

-18 . 

. 30 , 

-15 . 

01 

X 

-14 

. 25 , 

-12 . 

, 69 , 

-10 . 

. 89 , 

- 9 . 

73 , 

-10 . 

20 , 

-11 . 

. 16 , 

-10 . 

96 

X 

-10 

. 76 , 

- 9 . 

, 57 , 

-8 . 

. 93 , 

-10 . 

86 , 

-15 . 

68 , 

-17 . 

. 87 , 

- 16 . 

41 

X 

-15 

. 28 , 

- 16 . 

, 08 , 











X 

-21 

. 09 , 

- 19 . 

, 26 , 

- 15 . 

. 41 , 

- 16 . 

14 , 

-15 . 

74 , 

-13 . 

. 25 , 

-12 . 

69 

X 

-13 

. 78 , 

-12 . 

, 36 , 

-11 . 

. 53 , 

-11 . 

86 , 

-13 . 

52 , 

-12 . 

. 26 , 

-14 . 

28 

X 

-17 

. 30 , 

-20 . 

, 23 , 

-18 . 

. 67 , 

-20 . 

93 , 

-21 . 

95 , 

-20 . 

. 46 , 

- 16 . 

84 

X 

-17 

. 64 , 

- 16 . 

, 01 , 

-14 . 

. 42 , 

-13 . 

65 , 

-14 . 

91 , 

-13 . 

. 62 , 

-12 . 

29 

X 

-12 

. 75 , 

- 13 . 

, 92 , 

-12 . 

. 65 , 

-13 . 

52 , 

-17 . 

64 , 

- 19 . 

. 26 , 

-17 . 

70 

X 

-17 

. 54 , 

-17 . 

, 44 / 











data 

( (ymoqt_cnx(i. 

j ) , 1 = 1, 

37 ) , 

j = 31 . 

37 ) / 





X 

-25 

. 94 , 

-24 . 

81 , 

-20 . 

. 89 , 

-18 . 

43 , 

- 16 . 

97 , 

-15 . 

98 , 

-18 . 

. 00 

X 

-15 

. 08 , 

- 13 . 

02 , 

-12 . 

. 59 , 

-14 . 

05 , 

-15 . 

21 , 

- 16 . 

97 , 

-17 . 

. 37 

X 

-21 

. 92 , 

- 23 . 

62 , 

-23 . 

. 52 , 

- 26 . 

24 , 

-24 . 

35 , 

-21 . 

95 , 

-18 . 

.43 

X 

-19 

. 13 , 

-18 . 

23 , 

-17 . 

. 80 , 

-18 . 

63 , 

-17 . 

64 , 

- 16 . 

51 , 

-14 . 

. 75 

X 

-15 

. 01 , 

- 16 . 

11 , 

-18 . 

. 67 , 

- 16 . 

34 , 

-17 . 

21 , 

-18 . 

67 , 

-20 . 

. 4 6 

X 

-21 

. 89 , 

- 23 . 

58 , 











X 

-32 

. 22 , 

-31 . 

02 , 

-27 . 

. 14 , 

-23 . 

62 , 

-23 . 

22 , 

- 16 . 

64 , 

-17 . 

. 17 

X 

-16 

. 37 , 

- 15 . 

18 , 

-14 . 

. 58 , 

-14 . 

55 , 

-17 . 

37 , 

-18 . 

00 , 

-20 . 

.19 

X 

-23 

. 72 , 

- 26 . 

14 , 

-28 . 

. 70 , 

-31 . 

92 , 

- 29 . 

66 , 

- 26 . 

77 , 

-24 . 

.48 

X 

-24 

. 98 , 

-22 . 

39 , 

-20 . 

. 53 , 

- 19 . 

70 , 

- 19 . 

36 , 

-17 . 

87 , 

-17 . 

. 11 

X 

-17 

. 87 , 

-18 . 

40 , 

-18 . 

. 37 , 

- 19 . 

5 6 , 

-22 . 

09 , 

-23 . 

75 , 

- 26 . 

. 01 

X 

-28 

CO 

o 

- 29 . 

63 , 











X 

-38 

. 20 , 

- 35 . 

84 , 

-32 . 

. 35 , 

-31 . 

02 , 

- 29 . 

43 , 

-25 . 

14 , 

-22 . 

.49 

X 

-19 

. 16 , 

- 16 . 

18 , 

-14 . 

. 18 , 

-14 . 

58 , 

-15 . 

78 , 

- 19 . 

20 , 

- 26 . 

. 90 

X 

-31 

. 29 , 

- 33 . 

51 , 

-34 . 

CO 

- 36 . 

24 , 

-33 . 

48 , 

-31 . 

52 , 

- 29 . 

. 13 

X 

-29 

. 96 , 

-27 . 

20 , 

-24 . 

CO 

-22 . 

25 , 

- 19 . 

40 , 

-18 . 

17 , 

-17 . 

. 70 

X 

-18 

CO 

o 

- 19 . 

73 , 

-20 . 

. 63 , 

-25 . 

91 , 

-28 . 

CO 

-31 . 

06 , 

-31 . 

. 65 

X 

-35 

. 04 , 

- 36 . 

93 , 











X 

-34 

. 21 , 

-31 . 

55 , 

-28 . 

00 , 

-27 . 

00 , 

-27 . 

24 , 

-24 . 

21 , 

-20 . 

. 99 

X 

-18 

. 70 , 

-14 . 

75 , 

-13 . 

85 , 

-12 . 

4 6 , 

- 16 . 

01 , 

- 19 . 

66 , 

-24 . 

.48 

X 

-29 

. 99 , 

-32 . 

15 , 

-33 . 

48 , 

-34 . 

41 , 

-32 . 

95 , 

- 29 . 

79 , 

-28 . 

.53 

X 

-29 

. 63 , 

-27 . 

73 , 

- 26 . 

01 , 

-23 . 

65 , 

-22 . 

49 , 

- 19 . 

96 , 

- 19 . 

. 83 

X 

-20 

. 76 , 

-20 . 

69 , 

-23 . 

05 , 

- 26 . 

24 , 

- 29 . 

69 , 

-31 . 

12 , 

-31 . 

. 45 

X 

-34 

. 84 , 

- 39 . 

23 , 











X 

-25 

. 77 , 

- 23 . 

52 , 

-21 . 

76 , 

-23 . 

48 , 

-23 . 

81 , 

-21 . 

22 , 

- 19 . 

. 4 6 

X 

-17 

. 50 , 

-14 . 

18 , 

-10 . 

63 , 

- 9 . 

77 , 

-13 . 

62 , 

- 16 . 

01 , 

-22 . 

.09 

X 

-25 

. 48 , 

- 25 . 

24 , 

- 26 . 

94 , 

- 26 . 

90 , 

-28 . 

27 , 

- 26 . 

60 , 

-23 . 

.58 

X 

-25 

. 31 , 

- 23 . 

81 , 

-22 . 

88 , 

-24 . 

05 , 

-22 . 

49 , 

-20 . 

99 , 

-20 . 

.39 

X 

-20 

. 79 , 

- 19 . 

80 , 

- 19 . 

00 , 

-20 . 

93 , 

-21 . 

95 , 

-24 . 

28 , 

-23 . 

. 91 

X 

-27 

. 40 , 

-34 . 

81 , 











X 

-11 

. 82 , 

- 9 . 

77 , 

-11 . 

03 , 

-12 . 

65 , 

-11 . 

79 , 

-11 . 

82 , 

-12 . 

.56 

X 

-12 

. 65 , 

-7 . 

97 , 

-7 . 

91 , 

-7 . 

57 , 

-12 . 

75 , 

-12 . 

99 , 

- 16 . 

.44 
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X 

-17 . 

, 04 , 

- 15 . 

25 , 

-14 

. 32 , 

-12 

. 39 , 

-13 . 

CO 

-14 

. 08 , 

-12 

. 72 

X 

-17 . 

, 04 , 

- 15 . 

64 , 

-15 

. 28 , 

-18 

. 27 , 

-20 . 

. 06 , 

-15 

. 18 , 

-15 

. 01 

X 

- 13 . 

, 02 , 

-14 , 

42 , 

-13 

. 85 , 

-12 

. 99 , 

-13 . 

. 42 , 

-15 

. 51 , 

-14 

. 81 

X 

- 16 . 

, 21 , 

-27 . 

40 , 











X 

0 . 

, 76 , 

2 . 

82 , 

2 

. 06 , 

3 

. 65 , 

-0 . 

. 17 , 

2 

. 72 , 

0 

.47 

X 

1 . 

, 20 , 

1 . 

13 , 

0 

. 80 , 

0 

. 47 , 

-1 . 

. 46 , 

-3 

. 92 , 

-2 

.19 

X 

- 1 . 

, 20 , 

-0 . 

93 , 

-0 

. 73 , 

-0 

. 40 , 

-0 . 

. 33 , 

-0 

. 37 , 

-0 

. 17 

X 

-2 . 

, 42 , 

-1. 

79 , 

-1 

. 79 , 

-3 

. 59 , 

-4 . 

. 42 , 

-1 

. 93 , 

-1 

.26 

X 

-2 . 

, 26 , 

-2 . 

69 , 

-2 

. 16 , 

-1 

. 63 , 

-2 . 

. 09 , 

-2 

. 69 , 

-1 

.56 

X 

-1. 

, 10 , 

-0 . 

03 / 












C (alfao,betao) is the pt in the region [-90,90]x[0,180] with the same 
aerodynamics as 

C (alf2d,bet2d) except for signs. The matrix "s" supplies the signs 
for beta < 0. 


data s/ 

X 1., 1., 1., 1., 1., 1., 

X 1.,-!., 1.,-!., 1.,-!./ 

va22 = va2s2(l)**2 + va2s2(2)**2 + va2s2(3)**2 

va2 = sqrt(va22) 

q2 = .5*rho*va22 

alf2 = 0. 

bet2 = 0. 

if (abs(va2s2(l))+abs(va2s2(3)).gt..0001) 

X alf2 = atan(va2s2(3)/va2s2 (1)) 

calf = cos(alf2) 
sbet = 0 
cbet = 1 

if (va2.gt.2) then 

sbet = va2s2(2)/va2 
cbet = va2s2(1)/(va2*calf) 
bet2 = atan2(sbet,cbet) 
end if 

alf2d = alf2*r2d 
bet2d = bet2*r2d 


C (alfao,betao) = equivalent (alf, beta) in [-90,90] x [0,90] 
alfao = alf2d 
betao = abs(bet2d) 
quad = 1 

if (bet2d.lt.O) quad = 2 
C aero components at (alfao, betao), betao > 0 


call serchl (alfao, alfg 

_cnx 

, 37, 

ix, sigx) 


call serchl(betao, betg 

_cnx 

, 37, 

iy, sigy) 


f awo (1) 

= -q2*f2d(ix. 

iy. 

sigx. 

sigy, 37, 

doqt_cnx) 

fawo(2) 

= q2*f2d(ix. 

iy. 

sigx. 

sigy, 37, 

yoqt_cnx) 

f awo (3) 

= -q2*f2d(ix. 

iy. 

sigx. 

sigy, 37, 

loqt_cnx) 

f awo (4) 

= q2*f2d(ix. 

iy. 

sigx. 

sigy, 37, 

rmoqt_cnx) 

f awo (5) 

= q2*f2d(ix. 

iy. 

sigx. 

sigy, 37, 

pmoqt_cnx) 

f awo (6) 

= q2*f2d(ix. 

iy. 

sigx. 

sigy, 37, 

ymoqt_cnx) 
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C transform from wind axes to body axes: Tbw = E2(alf2)*E3(-bet2), 
fa22 = Tbw*fa2w, ma22 = Tbw*ma2w 

do 100 j = 1,6 

100 faw(j) = s(j,quad)*fawo ( j) 

salf = sin (alf2) 

T2w(l,l) = calf*cbet 
T2w(2,1) = sbet 
T2w(3,l) = salf*cbet 
T2w(l,2) = -calf*sbet 
T2w(2,2) = cbet 
T2w(3,2) = -salf*sbet 
T2w(l,3) = -salf 
T2w(2,3) = 0. 

T2w(3,3) = calf 

fa22(l) = T2w(1, 1)*fa2w(1)+T2w(1,2)*fa2w(2)+T2w(1,3)*fa2w(3) 
fa22(2) = T2w(2,1)*fa2w(1)+T2w(2,2)*fa2w(2)+T2w(2,3)*fa2w(3) 
fa22(3) = T2w(3,1)*fa2w(1)+T2w(3,2)*fa2w(2)+T2w(3,3)*fa2w(3) 
ma22(l) = T2w(1,1)*ma2w(1)+T2w(1,2)*ma2w(2)+T2w(1,3)*ma2w(3) 
ma22(2) = T2w(2, 1)*ma2w(1)+T2w(2,2)*ma2w(2)+T2w(2,3)*ma2w(3) 
ma22(3) = T2w(3,1)*ma2w(1)+T2w(3,2)*ma2w(2)+T2w(3,3)*ma2w(3) 

return 

end 


c locate independent variable x in array of values, tx, for table 
lookup 

SUBROUTINE SERCHl(x, tx, nx, lx, sigx) 

DIMENSION tx(l) 

xl = AMAXl(tx(1),AMINl(x,tx(nx))) 

1=1 

1 IF (1 .EQ. nx) THEN 
lx = nx - 1 
sigx = 1 

ELSE IF (xl .LT. tx(i+I)) THEN 
lx =1 

sigx = (xl - tx(1))/(tx(1+1)-tx(1)) 

ELSE 

1 = 1 + 1 
GO TO 1 
END IF 
RETURN 
END 

c 2-D table lookup routine. 

FUNCTION F2D(ix, iy, sigx, sigy, nx, tf) 

DIMENSION tf (1) 
kOl = nx*iy + lx 
kll = kOl + 1 
kOO = kOl - nx 
klO = kOO + 1 
fOO = tf (kOO) 
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fOl = tf (kOl) 
flO = tf (klO) 
f11 = tf(kll) 
sigys = 1 - sigx 


IF (sigy 

.LE. sigys 

F2D = 

fOO + (flO 

ELSE 


F2D = 

fll - (fll 

END IF 


RETURN 


END 



THEN 

fOO)*sigx + (fOl 
fOl)* (1 - sigx) 


f00)*sigy 

(fll - flO)*(1 - sigy) 
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APPENDIX C SLINGTORQ.F 


Sling Torque data from the Ames meehanieal engineering laboratory test. 
Lookup program to extract required data follows the data. Program by Ehlers G. 


C /GenHel/sl/sling_dat.f Created 01 Sep 2001 by George E Ehlers 
C Data for sling wind-up yaw resistance obtained from laboratory 
tests 

subroutine sling_dat 
include 'slvars.cmn' 
real beta_cnx(110), torq_cnx(110) 


C Beta values 


data beta_cnx/ 


X 


0 , 

0 . 

1020 , 

0 . 

. 2039 , 

0 . 

. 3059 , 

0 . 

. 4078 , 

0 . 

.5098 

X 

0 . 

, 6118 , 

0 . 

7137 , 

0 . 

. 8157 , 

0 . 

. 9176 , 

1 . 

. 0196 , 

1 . 

. 1216 

X 

1 . 

, 2235 , 

1 . 

3255 , 

1 . 

. 4275 , 

1 . 

. 5294 , 

1 . 

. 6314 , 

1 . 

. 7333 

X 

1 . 

, 8353 , 

1 . 

9373 , 

2 . 

. 0392 , 

2 . 

. 1412 , 

2 . 

. 2431 , 

2 . 

. 3451 

X 

2 . 

, 4471 , 

2 . 

5490 , 

2 . 

. 6510 , 

2 . 

. 7529 , 

2 . 

. 8549 , 

2 . 

. 9569 

X 

3 . 

, 0588 , 

3 . 

1608 , 

3 . 

. 2627 , 

3 . 

. 3647 , 

3 . 

. 4667 , 



3 . 5686 , 













X 

3 . 

. 6706 , 

3 . 

7725 , 

3 . 

. 8745 , 

3 . 

. 9765 , 

4 . 

. 0784 , 

4 

. 1804 

X 

4 . 

, 2824 , 

4 . 

3843 , 

4 . 

. 4863 , 

4 . 

. 5882 , 

4 . 

. 6902 , 

4 

.7922 

X 

4 . 

, 8941 , 

4 . 

9961 , 

5 . 

. 0980 , 

5 . 

. 2000 , 

5 . 

. 2100 , 

6 

.2204 

X 

7 . 

, 2307 , 

8 . 

2411 , 

9 . 

. 2514 , 

10 . 

. 2618 , 

11 . 

. 2721 , 

12 

.2825 

X 

13 . 

, 2928 , 

14 . 

3032 , 

15 . 

. 3135 , 

16 . 

. 3239 , 

17 . 

. 3342 , 

18 

.3446 

X 

19 . 

, 3549 , 

20 . 

3653 , 

21 . 

. 3756 , 

22 . 

. 3860 , 

23 . 

. 3963 , 

24 

.4067 

X 

25 . 

, 4170 , 

26 . 

4274 , 

27 . 

. 4377 , 

28 . 

. 4481 , 

29 . 

. 4584 , 

30 

.4688 

X 

31 . 

, 4791 , 

32 . 

4895 , 

33 . 

. 4998 , 

34 . 

. 5102 , 

35 . 

. 5205 , 

36 

.5309 

X 

37 . 

, 5412 , 

38 . 

5516 , 

39 . 

. 5619 , 

40 . 

. 5723 , 

41 . 

. 5826 , 

42 

.5930 

X 

43 . 

, 6033 , 

44 . 

6137 , 

45 . 

. 6240 , 

46 . 

. 6344 , 

47 . 

. 6447 , 

48 

. 6551 

X 

49 . 

. 6654 , 

50 . 

6758 , 

51 . 

. 6861 , 

52 . 

. 6965 , 

53 . 

. 7068 , 

54 

. 7172 

X 

55 . 

, 7275 , 

56 . 

7379 , 

57 . 

. 7482 , 

58 . 

. 7586 , 

59 . 

. 7689 , 

60 

. 7793 

X 

61 . 

, 7896 , 

62 . 

8000 / 










C123456789C123456789C123456789C123456789C123456789C123456789C1234567891 

2 

C Force values 

data torq_cnx/ 


X 

2.5485, 

0.5187, 

0.9107, 

0.6239, 

1.0651, 

2.0096 

X 

24.8609, 

2.0417, 

2.0745, 

3.5813, 

9.0015, 

16.1410 
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X 34 . 9526 , 

96 . 2232 , 

46 . 1588 , 

58 . 1917 , 

70 . 7486 , 

83.5244 

X 108 . 5666 , 
157 . 1724 , 

120 . 3007 , 

131 . 2011 , 

141 . 0772 , 

149.7737 

X 163 . 1922 , 
172 . 1783 , 

167 . 7876 , 

170 . 9482 , 

172 . 6952 , 

173.0795 

X 170 . 0910 , 
146 . 4473 , 

166 . 9360 , 

162 . 8468 , 

157 . 9675 , 

152.4495 

X 40 . 1151 , 

108 . 4663 , 

133 . 6033 , 

127 . 0553 , 

120 . 6046 , 

114.3726 

X 102 . 9770 , 
83 . 7344 , 

97 . 9784 , 

93 . 5264 , 

89 . 6585 , 

86.3940 

X 81 . 6643 , 

79 . 4923 , 

80 . 1529 , 

79 . 1556 , 

78 . 6159 , 

78.3361 

X 80 . 6913 , 

87 . 3278 , 

81 . 9331 , 

83 . 2176 , 

84 . 5449 , 

85.9150 

X 88 . 7834 , 

96 . 7029 , 

90 . 2818 , 

91 . 8229 , 

93 . 4068 , 

95.0335 

X 98 . 4151 , 

107 . 6177 , 

100 . 1701 , 

101 . 9679 , 

103 . 8084 , 

105.6917 

X 109 . 5865 , 
120 . 0721 , 

111 . 5981 , 

113 . 6525 , 

115 . 7496 , 

117.8895 

X 122 . 2976 , 
134 . 066 , 

124 . 5658 , 

126 . 8767 , 

129 . 2305 , 

131.6270 

X 136 . 5483 , 
149 . 6000 , 

139 . 0731 , 

141 . 6407 , 

144 . 2510 , 

146.9041 

X 152 . 3386 , 
166 . 6734 , 

155 . 1201 , 

157 . 9442 , 

160 . 8112 , 

163.7209 

X 169 . 6687 , 
185 . 2865 , 

172 . 7067 , 

175 . 7875 , 

178 . 9111 , 

182.0774 

X 188 . 5384 , 
205 . 4392 , 

X 208 . 9477 , 

191 . 8330 , 

212 . 4989 / 

195 . 1704 , 

198 . 5506 , 

201.9735 


c 

beta=abs(ps2-psl) 

call serchl(beta, beta_cnx, 110, ix, sigx) 

kkl=-sign(l,(ps2-psl)) 
kk2=sigx*((torq_cnx(ix+1)- 
X torq_cnx(ix))/(beta_cnx(ix+1)-beta_cnx(ix))) 

Kps2= -sign(1,(ps2-psl))*(torq_cnx(ix)+sigx*((torq_cnx(ix+1)- 
X torq_cnx(ix)) 

RETURN 

END 


SUBROUTINE SERCHl(x, tx, nx, ix, sigx) 
DIMENSION tx(l) 

xl = AMAXl(tx(1),AMINl(x,tx(nx))) 
i = 1 

1 IF (i .EQ. nx) THEN 
ix = nx - 1 
sigx = 1 

ELSE IF (xl .LT. tx(i+l)) THEN 
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ix = 
sigx = 
ELSE 

i = i 
GO TO 
END IF 
RETURN 
END 


i 

(xl - tx(i))/(tx(i+1)-tx(i)) 

L 1 
1 
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APPENDIX D YAW DOF CORK PLOTS 


Plots of yaw rates and control inputs for GenHel / Slung Load simulation with 
correcting equations. Both swivel and non-swivel cases are plotted for validation. 
Plotted are flight test data in blue versus simulation in red. Each plot window has four 
plots. The first plot is yaw rate in feet per second, the second is longitudinal stick 
deflection in inches, the third is lateral stick deflection in inches and the bottom plot is 
collective deflection in inches. Appendix D by Ehlers, G. 
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Yaw Rate and Control Input Comparison 
Flight 172.17 Airspeed 20kts 



TIME.FIT(16:41:36.2510) TIME.SIM<00:00:00.0200) 



TIME.FLT<16:41:36.2510) TIME.SIM<00:00:00.0200) 


7.000 
6.000 
5.000 
4.000 
3.000 

0.0 20.0 40.0 60.0 80.0 100.0 
TIME.FLT<16:41:36.2510) TIME.SIM<00:00:00.0200) 




TIME.FLT<16:41:36.2510) TIME.SIM<00:00:00.0200) 


DRL3S.FL1 

R2.SIM 


XfilN.FLT 
DA.SIM 


XBIN.FLT 

DB.SIM 


XCIN.FLT 
DC.SIM 
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Yaw Motions and Control Input Comparison 
Flight 172*19 Airspeed 42kts 


DRL3S.FLT 

R2.SIM 


0.0 20,0 40.0 60.0 80.0 100.0 

TIME.FLT<16:46:48.4390) TIME.SIM<00:00:00.0200) 



5.200 
5.000 
4.800 
4.600 
4.400 

0.0 20.0 40.0 60.0 80.0 100.0 
TIME.FLT<16:46:48.4390) TIME.SIM<00:00:00.0200) 



XAIN.FLT 
DA.SIM 



TIME.FLT<16:46:48.4390) TIME.SIM<00:00:00.0200) 


XBIN.FLT 

DB.SIM 



TIME.FLT<16:46:48.4390) TIME.SIM<00:00:00.0200) 


XCIN.FLT 
DC.SIM 
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Yaw Motions and Control Input Comparison 
Flight 172.46 Airspeed 58kts 



TIME.FLT<17:45:59.2700) TIME.SIM<00:00:00.0200) 


DRL3S.FLT 

R2.SIM 


XAIN.FLT 
DA.SIM 


o'o 50'.0 100.0 

TIME.FLT<17:45:59.2700) TIME.SIM<00:00;00.0200) 



7.000 

6.500 

6.000 

5.500 
5.000 

o'o 50'.0 10C).0 

TIME.FLT<17:45:59.2700) TIME.SIM<00:00:00.0200) 



XBIN.FLT 

DB.SIM 


6.000 

5.500 
5.000 

4.500 
4.000 

3.500 

0.0 50.0 100.0 

TIME.FLT<17:45:59.2700) TIME.SIM<00:00:00.0200) 



XCIN.FLT 
DC.SIM 
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Yaw Rate and Control Input Comparison 
Flight 169.16 Airspeed 35kts 



TIME.FLT<16:03:23.0090) TIME.SIM(00:00:00.0200) 



TIME.FLT<16:03:23.0090) TIME.SIM(00:00:00.0200) 



TIME.FLT(16:03:23.0090) TIME.SIM<00:00:00.0200) 



TIME.FLT<16:03:23.0090) TIME.SIM(00:00:00.0200) 
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APPENDIX E LOADSTAB.M 


Matlab Program to check force and moment equations for an airfoil exposed to a 
relative wind from any angle. Program by Ehlers, G. 

% Check program for control regime 

clear 

clc 

d2r=pi/180; 

%Flight Constants 
Va=30; 

rho=.0023768; 

%Stall Transition Region 
TH1=10; 

TH2=30; 

%Lift and Drag Coefficients 
Cla=.l/d2r; 

Cdo=.02; 

Cdp=.5; 

%Airfoil Dimentions entered [Horz,Vert] 

Chord=[2,2]; 

Span=[5,3]; 

%Airfoil location 
RH=[-5,0,-4] ; 

RV=[-5,0,-5.5] ; 


%Conversions 

THl=THl*d2r; 

TH2=TH2*d2r; 

V=-Va*l.68781; 

%Plots wanted l=all, 2=airfoil-centered axis, 3=load-centered axis 
pi=i; 

n=51; 

alf=linspace(-90,90,n)*d2r; 
bet=1inspace(-180,180,n)*d2r; 

%Calculates first Horiz Stab then Vert Stab 
for g = 1:2 

Ch=Chord(g); 

S = Chord(g)*Span(g); 

AR= Span(g)/Chord(g); 
e = .9; 

for i=l:length(alf) 
for j=l:length(bet) 

%Calculate u,v,w for full range of possibilities 
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if g==l 

u = -V*cos(alf(i))*cos(bet(j)) ; 

V = V*sin(bet ( j)); 

w = -V*sin(alf(i))*cos (bet (j)); 
else 

u = -V*cos(alf(i))*cos (bet (j)); 

V = -V*sin(alf(i))*cos(bet (j)); 
w = -V*sin (bet ( j)); 

end 

%Calculate Theta and Beta for Stab 
TH=atan2(w,u); 

PS=atan2(v,u); 

%Relative Wind perp to span 
Vxy = sqrt(u^2+v^2); 

Vxz = sqrt(u^2+w^2) ; 

Vyz = sqrt(v^2+w^2) ; 

%Calculations for forces and moments 
%Prestall Region 

if (abs(TH) <= THl) & (abs(PS) <= 1.571) 

Fl(i,j) = -rho/2*Vxy*u*S*(Cdo+Cla^2*TH^2/(pi*e*AR)) ; 
F2(i,j) = -rho/2*Vyz*v*S*Cdo; 

F3(i,j) = -rho/2*Vxz^2*S*Cla*TH; 

Ml(1,j) = 0; 

M2(1,j) = -F3 (1, j)*(Ch/4) ; 

M3 (1,j) =0; 

%Crossflow Region 

elseif (abs(TH) > TH2) | (abs(PS) > 1.571) 

Fl(i,j) = -rho/2*Vxy*u*S*Cdo; 

F2(i,j) = -rho/2*Vyz*v*S*Cdo; 

F3(i,j) = -rho/2*Vxz*w*S*(Cdp*abs(sin (TH))); 

Ml(1,j) = 0; 

M2 (1, j) = 0; 

M3(1,j) =0; 

%Stall Transition Region 
else 

u2 = Vxz*cos(TH2)*sign(cos(PS)) ; 

Vxy2 = sqrt(u2^2+v^2) ; 

Flpl = -rho/2*Vxy*u*S*(Cdo+Cla^2*TH1^2/(pi*e*AR)) ; 

F2pl = -rho/2*Vxy2*u2*S*Cdo; 

Fl(i,j) = Flpl+(F2pl-Flpl)/(TH2-TH1)*(abs(TH)-THl) ; 

Ml(1,j) = 0; 

F2(i,j) = -rho/2*Vyz*v*S*Cdo; 

M3(1,j) =0; 

w2 = Vxz*sin(TH2)*sign (sin (TH)); 

Vxz2 = sqrt(u^2+w2^2); 

Flp2 = -rho/2*Vxz^2*S*(Cla*THl*sign(TH)); 

F2p2 = - 

rho/2*Vxz2*w2*S*(Cdo*abs(cos(TH2))+Cdp*abs(sin(TH2))) ; 

F3(i,j) = Flp2+(F2p2-Flp2)/(TH2-TH1)*(abs(TH)-THl) ; 
M2(i,j) = -Flp2*(Ch/4)+(Flp2*(Ch/4))/(TH2-TH1)*(abs(TH)- 

THl) ; 

end 

end 
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end 


%Calculation of load body centered forces and moments 
if g==l; 

%Horiz Stab 
FILH = FI; 

F2LH = F2; 

F3LH = F3; 

MILH = -F2.*RH(3)+F3.*RH(2); 

M2LH = FI.*RH(3)-F3.*RH(1)+M2; 

M3LH = -FI.*RH(2)+F2.*RH(1); 
else 

%Vertical Stab 
FILV = FI; 

F2LV = -F3; 

F3LV = F2; 

MILV = F2.*RV(2)+F3.*RV(3); 

M2LV = FI.*RV(3)-F2.*RV (1); 

M3LV = -FI.*RV(2)-F3.*RV(1)+M2; 

end 

end 

%Total Forces load body centered 
FIL = FILH+FILV; 

F2L = F2LH+F2LV; 

F3L = F3LH+F3LV; 

MIL = MILH+MILV; 

M2L = M2LH+M2LV; 

M3L = M3LH+M3LV; 

if pl==l I pl==2 

%3-D Graphs for forces 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,FI) 

title ('Axial Forces body centered axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F2) 

title ('Lateral Forces body centered axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F3) 

title ('Vertical Forces body centered axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 


%3-D Graphs for moments 
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figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M2) 

title ('Pitch Moments, body centered axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

nn=[l, 14,26, 39, 51] ; 

ymin=min([min(min(FI)),min(min(F2)) , min(min(F3))]) ; 
ymax=max([max(max(FI)),max(max(F2)),max(max(F3))]); 

for ii=l:length(nn) 

%2-D Graphs 

%Force Plots 
figure 

subplot (4,2,1), plot(alf/d2r,FI(: , nn(ii) ) ) 
title (['Axial Force vs Alpha, Beta = 

' ,num2str(bet(nn(ii))/d2r) ] ) 

axis([alf(1)/d2r,alf(n)/d2r,ymin,ymax]) 
grid on 

subplot (4,2,3), plot(alf/d2r,F2(:,nn(ii))) 
title (['Lateral Force vs Alpha, Beta = 

' ,num2str(bet(nn(ii))/d2r) ] ) 

axis([alf(1)/d2r,alf(n)/d2r,ymin,ymax]) 
ylabel ( 'Force') 
grid on 

subplot (4,2,5), plot(alf/d2r,F3(:,nn(ii))) 
title (['Normal Force vs Alpha, Beta = 

' ,num2str(bet(nn(ii))/d2r)]) 

axis([alf(1)/d2r,alf(n)/d2r,ymin,ymax]) 
grid on 

subplot (4,2,2), plot(bet/d2r,FI(nn(ii),:)) 

title (['Axial Force vs Beta, Alpha= ',num2str(alf(nn(ii))/d2r)]) 
axis([bet(1)/d2r,bet(n)/d2r,ymin,ymax]) 
grid on 

subplot (4,2,4), plot(bet/d2r,F2(nn(ii),:)) 
title (['Lateral Force vs Beta, Alpha= 

' ,num2str(alf(nn(ii))/d2r) ] ) 
ylabel ( 'Force') 

axis([bet(1)/d2r,bet(n)/d2r,ymin,ymax]) 
grid on 

subplot (4,2,6), plot(bet/d2r,F3(nn(ii),:)) 
title (['Normal Force vs Beta, Alpha= 

' ,num2str(alf(nn(ii))/d2r)]) 

axis([bet(1)/d2r,bet(n)/d2r,ymin, ymax]) 
grid on 

%Moment Plots 

subplot (4,2,7), plot(alf/d2r,M2(:,nn(ii))) 
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title (['Pitching Moment vs Alpha, Beta = 

',num2str(bet(nn(ii))/d2r)]) 

axis([alf(1)/d2r,alf(n)/d2r,min(min(M2)) , max(max(M2))]) 
xlabel ('Alpha') 
grid on 

subplot (4,2,8), plot(bet/d2r,M2(:,nn(ii))) 
title (['Pitching Moment vs Beta, Alpha= 

',num2str(alf(nn(ii))/d2r)]) 

axis([bet(1)/d2r,bet(n)/d2r,min(min(M2)),max(max(M2))]) 
xlabel ('Beta') 
grid on 
print 

end 

elseif pl==l I pl==3 

%Graphs for Load Body Centered Axis 

%Axial Forces 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,FILH) 

title ('Axial Forces Horz Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,FILV) 

title ('Axial Forces Vert Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,FIL) 

title ('Total Axial Forces, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

%Lateral Forces 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F2LH) 

title ('Lateral Forces Horz Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F2LV) 

title ('Lateral Forces Vert Stab, Load-body centerd axis' 



ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F2L) 

title ('Total Lateral Forces, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

%Vertical Forces 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F3LH) 

title ('Vertical Forces Horz Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,F3LV) 

title ('Vertical Forces Vert Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r, F3L) 

title ('Total Vertical Forces, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

%Roll Moment 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,MILH) 

title ('Roll Moment Horz Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,MILV) 

title ('Roll Moment Vert Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,MIL) 
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title ('Total Roll Moment, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

%Pitch Moment 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M2LH) 

title ('Pitch Moment Horz Stab, Load-body centerd axis 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M2LV) 

title ('Pitch Moment Vert Stab, Load-body centerd axis' 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M2L) 

title ('Total Pitch Moment, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

%Yaw Moment 
figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M3LH) 

title ('Yaw Moment Horz Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M3LV) 

title ('Yaw Moment Vert Stab, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 

figure 

colormap([0,0,0]) 

mesh (bet/d2r,alf/d2r,M3L) 

title ('Total Yaw Moment, Load-body centerd axis') 
ylabel ('Pitch Angle') 
xlabel ('Yaw Angle') 
grid on 


nn=[l,14,26,39,51]; 
for 11=1:length(nn) 
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%2-D Moment Graphs for load-body centered axis 
figure 

subplot (3,2,1), plot(alf/d2r,M2L(: , nn(11))) 
title (['Pitch Moment vs Alpha, Beta = 

',num2str(bet(nn(11))/d2r)]) 

axis([alf(1)/d2r,alf(n)/d2r, -100, 100]) 
grid on 

subplot (3,2,3), plot(alf/d2r,MIL(:,nn(11))) 
title (['Rolling Moment vs Alpha, Beta = 

',num2str(bet(nn(11))/d2r)]) 

axis([alf(1)/d2r,alf(n)/d2r, -100, 100]) 
ylabel ('Moment') 
grid on 

subplot (3,2,5), plot(alf/d2r,M3L(:,nn(11))) 

title (['Yaw Moment vs Alpha, Beta = ',num2str(bet(nn(11))/d2r)]) 
axis([alf(1)/d2r, alf(n)/d2r, -100, 100]) 
xlabel ('Alpha') 
grid on 

subplot (3,2,2), plot(bet/d2r,M2L(nn(11),:)) 
title (['Pitching Moment vs Beta, Alpha= 

',num2str(alf(nn(ii))/d2r)]) 

axis([bet(1)/d2r,bet(n)/d2r,-100, 100] ) 
grid on 

subplot (3,2,4), plot(bet/d2r,MIL(nn(11),:)) 
title (['Rolling Moment vs Beta, Alpha= 

',num2str(alf(nn(ii))/d2r)]) 
ylabel ('Moment') 

axis([bet(1)/d2r,bet(n)/d2r,-100, 100] ) 
grid on 

subplot (3,2,6), plot(bet/d2r,M3L(nn(11),:)) 

title (['Yaw Moment vs Beta, Alpha= ',num2str(alf(nn(11))/d2r)]) 
axis([bet(1)/d2r, bet(n)/d2r,-100, 100] ) 
xlabel ( 'Beta') 
grid on 

end 

end 
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APPENDIX F STABILIZER FORCES PLOTS 


Plots of forces and moments for an stabilization deviee exposed to a relative wind 
from any angle. Forees are in Ibsf, moments are in ft-lbs and angles are in degrees. 
Appendix F by Ehlers, G. 
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APPENDIX G LOADSTAB.F 


Stabilization Module for GenHel / Slung Load simulation. Program by Ehlers, G. 

C File GenHel/batch/sl/loadstab . f.05 June 01 

George Ehlers 

C Fin tale stabilizer for slung loads 
SUBROUTINE LOADSTAB 
INCLUDE 'slvars.cmn' 

REAL 

X MACH, MIH, M2H, M3H, MIV, M2V, M3V, MXF, MYF, MZF 

EQUIVALENCE (OM22(I), P2) 

EQUIVALENCE (OM22(2), Q2) 

EQUIVALENCE (OM22(3), R2) 

DATA E, PI/.9, 3.1415927/ 


C Calcualtion of stab perameters 
AH = CH*SH 
AV = CV*SV 
ARH = SH/CH 
ARV = SV/CV 

C Wind Parameters, UU,VV,WW used 
errors 


instead of U,V,W to prevent naming 


UU = va2s2(l) + q2*rv(3) - r2*rv(2) 

VV = va2s2(2) + r2*rv(l) - p2*rv(3) 

WW = va2s2(3) + p2*rv(2) - q2*rv(l) 

C Relative Wind calculations 
Vxy = SQRT(UU**2+VV**2) 

Vxz = SQRT(UU**2+WW**2) 

Vyz = SQRT(VV**2+WW**2) 

C Calculation of active stab gains 
IF (ACTIVE .NE. 1) THEN 
DEFH = 0 
DEFV = 0 
ELSE 

DEFH = -GAINH*Q2 
IF (DEFH .GT. .349) THEN 
DEFH = -.349*SIGN(Q2) 

ENDIF 

DEFV = -GAINV*R2 
IF (DEFV .GT. .349) THEN 
DEFV = -.349*SIGN(R2) 

ENDIF 

ENDIF 
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C Calculations for forces and moments 


C Horizontal Stab 

C Calculation of angle of attack and yaw 
TH = atan2(WW,UU) 

PS = atan2(-VV,UU) 

C Calculation of 3D lift coeffic and conversions 
CLA = (CLAH*r2d)*ARH/(2+sqrt(4+ARH**2)) 

CLD = CLDH 
CDO = CDOH 
CDP = CDPH 
STALl = STALH1/R2D 
STAL2 = STALH2/R2D 

C Prestall Region 

IF (ABS(TH) .LE. STALl .AND. ABS(PS) .LE. 1.571) THEN 
FIH = -RH0/2*Vxy*UU*AH*(Cdo+Cla**2*TH**2/(PI*E*ARH)) 
F2H = -RH0/2*Vyz*VV*AH*Cdo 
F3H = -RHO/2*Vxz**2*AH*(Cla*TH+Cld*DEFH) 

MIH = 0 

M2H = F3H*(CH/4) 

M3H = 0 

C Crossflow Region 

ELSEIF (ABS(TH) .GT. STAL2 .OR. ABS(PS) .GT. 1.571) 

X THEN 

FIH = -RH0/2*Vxy*UU*AH*Cdo 
F2H = -RH0/2*Vyz*VV*AH*Cdo 

F3H = -RH0/2*Vxz*WW*AH*(Cdp*ABS(SIN(TH))) 

MIH = 0 
M2H = 0 
M3H = 0 

C Stall Transition Region 
ELSE 

UU2 = Vxz*COS(STAL2)*SIGN(1, COS(PS) ) 

Vxy2 = SORT(UU2**2+VV**2) 

Flpl = -RHO/2*Vxy*UU*AH*(Cdo+Cla**2*STALl**2/ 

X (PI*E*ARH)) 

F2pl = -RHO/2*Vxy2*UU2*AH*Cdo 

FIH = Flpl+(F2pl-Flpl)/(STAL2-STAL1)*(abs(TH)- 
X STALl) 

F2H = -RHO/2*Vyz*VV*AH*Cdo 

WW2 = Vxz*SIN(STAL2)*SIGN(1,SIN(TH)) 

Vxz2 = SORT(UU**2+WW2**2) 

Flp2 = -RHO/2*Vxz**2*AH*(Cla*STALl*sign(1,TH)+Cld 
X *DEFH) 

F2p2 = -RHO/2*Vxz2*WW*AH*(Cdo*ABS(COS(STAL2)) 

X +Cdp*ABS(SIN(STAL2))) 

F3H = Flp2+(F2p2-Flp2)/(STAL2-STAL1)*(abs(TH) 

X -STALl) 

MIH = 0 

M2H = Flp2*(CH/4)+(Flp2*(CH/4))/(STAL2-STAL1) 

X *(ABS(TH)-STALl) 

M3H = 0 
ENDIF 
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C Vertical Stab 


C Calculation of 3D lift coeffic and conversions 
CLA = (CLAV*r2d)*ARV/(2+sqrt(4+ARV**2)) 

CLD = CLDV 
CDO = CDOV 
CDP = CDPV 
STALl = STALV1/R2D 
STAL2 = STALV2/R2D 

C Transformation of wind components for Vertical Stab 
VV2=VV 
VV=-WW 
WW=VV2 

TH = ATAN2(WW,UU) 

PS = ATAN2(-VV,UU) 

Vxy = SQRT(UU**2+VV**2) 

Vxz = SQRT(UU**2+WW**2) 

Vyz = SQRT(VV**2+WW**2) 

C Prestall Region 

IF (ABS(TH) .LE. STALl .AND. ABS(PS) .LE. 1.571) THEN 
FIV = -RHQ/2*Vxy*UU*AV*(CDO+Cla**2*TH**2/(PI*E*ARV)) 
F2V = -RHQ/2*Vyz*VV*AV*CDO 
F3V = -RHQ/2*Vxz**2*AV*(Cla*TH+Cld*DEFV) 

MIV = 0 

M2V = F3V*(CV/4) 

M3V = 0 

C Crossflow Region 

ELSEIF (ABS(TH) .GT. STAL2 .OR. ABS(PS) .GT. 1.571) 

X THEN 

FIV = -RHO/2*Vxy*UU*AV*CDO 
F2V = -RHO/2*VYZ*VV*AV*CDO 

F3V = -RHO/2*Vxz*WW*AV*(Cdp*ABS(SIN(TH))) 

MIV = 0 
M2V = 0 
M3V = 0 

C Stall Transition Region 
ELSE 

UU2 = Vxz*COS(STAL2)*SIGN(1,COS(TH)) 

Vxy2 = SQRT(UU2**2+VV**2) 

Flpl = -RHO/2*Vxy*UU*AV*(CDO+Cla**2*STALl**2/ 

X (PI*E*ARV)) 

F2pl = -RHO/2*Vxy2*UU2*AV*CDO 

FIV = Flpl+(F2pl-Flpl)/(STAL2-STAL1)*(abs(TH)- 
X STALl) 

F2V = -RHO/2*Vyz*VV*AV*CDO 

WW2 = Vxz*SIN(STAL2)*SIGN(1,SIN(TH)) 

Vxz2 = SQRT(UU**2+WW2**2) 

Flp2 = -RHO/2*Vxz**2*AV*(Cla*STALl*sign(1,TH)+Cld* 
X DEFV) 

F2p2 = -RHO/2*Vxz2*WW*AV*(CDO*ABS(COS(STAL2)) 

X +Cdp*ABS(SIN(STAL2))) 

F3V = Flp2+(F2p2-Flp2)/(STAL2-STAL1)*(abs(TH)- 
STALl) 


X 
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MIV = 0 

M2V = -Flp2*(CV/4)+(Flp2*(CV/4))/(STAL2-STAL1) 

X *(ABS(TH)-STALl) 

M3V = 0 

ENDIF 

C Calculations of forces and moments from stabs in load body centered 
axis 

FXF = FIH+FIV 

FYF = F2H-F3V 

FZF = F3H+F2V 

MXF = -F2H*RH(3)+F3H*RH(2) - F2V*RV(2)-F3V*RV(3) 

MYF = F1H*RH(3)-F3H*RH(1)+M2H + F1V*RV(3)+F2V*RV(1) 

MZF = -F1H*RH(2)+F2H*RH(1) - F1V*RV(2)+F3V*RV(1)-M2V 

FA22(1) = FA22(1) + FXF 

FA22(2) = FA22(2) + FYF 

FA22(3) = FA22(3) + FZF 

MA22(1) = MA22(1) + MXF 

MA22(2) = MA22(2) + MYF 

MA22(3) = MA22(3) + MZF 


RETURN 

END 
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APPENDIX H WIND AXIS STAB FORCES 


Wind Axis forces for horizontal, vertical and total forces produced by the 
stabilization device. Plotted are the x, y and z forces (FX, FY, FZ)in Ibsf versus yaw 
angle in degrees. 


Horizontal Stabilizer Forces vs Beta 
alpha =0 airspeed=60 kts 
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Vertical Stabilizer Forces vs Beta 
alpha =0 airspeed=60 kts 
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Load Bodid Rxis Forces vs 
alpha =0 airspeed=60 kts 
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APPENDIX I LOADSTAB.DAT 


User interface for load stabilization module for GenHel / Slung Load simulation. 
All stabilization parameters are entered here to be read by loadstab.f Program by Ehlers, 
G. 

C File GenHel/batch/loadstabil. dat.05 June 01 

George Ehlers 

C Data input file for fin type stabilizer for slung loads 
C To be read by ghsl_init.f 

C ACTIVE - Passive / Active stabilization Flag l=Active 0=Passive 


C 

stab 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


Stabilizer Data, Final letter designates vertical or horizontal 

Gain - Active feedback gain 
C - Chord Length 

S - Airfoil Span 

CLA - 2-D Coefficent of lift of airfoil section 

CLD - Coefficient of lift due to control deflection 

CDO - Zero Lift Coefficient of drag 
GDP - Profile Drag Coefficient 

STALl- Angle of Pitch Where Flow Seperation Begins for Horz Stab 
STAL2- Angle of Pitch of Complete Airfoil Stall for Horz Stab 
R - X, Y and Z Distance of airfoil center to load CG 


&STABDAT 

ACTIVE = 5 
GAINH = 1 
CH =2 
SH =5 
CLAH = . 1 
CLDH = . 3 
CDOH = .02 
CDPH = .8 
STALH1= 20 
STALH2= 45 
RH(1) = -8 
RH(2) = 0 
RH(3) = -6 

GAINV = 1 
CV =2 
SV =4 
CLAV = . 1 
CLDV = . 3 
CDOV = .02 
CDPV = . 8 
STALV1= 20 
STALV2= 45 
RV(1) = -8 
RV (2 ) = 0 
RV(3) = -8 
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&END 
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APPENDIX J GHSLMC.F 


Slung Load module for multicable sling. Correction to the yaw degree of freedom 
and yaw resistance at the hook were make in this module. Program by Tyson, P. modified 
by Ehlers, G. 

C file GenHel/batch/sl/ghslmc.f, originally slmc.f . started 1 

july 96 

C single lift, multi-cable suspension. 

C modified for use with GENHEL UH-60A model 

C mods jun 00 ... clean out auxilliary varbs computed for sldriver. 

Add load acclr signals amgs2 

C Yaw DOF corrections made June 01 by George Ehlers 
SUBROUTINE GHSLMC 
INCLUDE 'slvars.cmn' 

REAL T1N(3,3), TN1(3,3), A22(3,3), A23(3,3), A22J1I(3,3), 

X A23J2I(3,3), RJR1(3,3), RJR2(3,3), 

X TV12(3), TV22(3), TV2N(3), TV3N(3), TV4N(3), TV5N(3), 

X TV6N(3), TV7N(3), TV8N(3), CA11(3), DAU2N(3), J0M11(3), 

X JOM22(3), Xll(3), X22(3), F01N(3), F02N(3), M011(3), 

X M022(3), HTDIFO(3), VSON(3), V1SN(3), V1S2SN(3), C0R1N(3), 

X COR2N(3), DRA2SN(3), RSON(3), FC12(3), 

X SF1N(3), SF2N(3), SM11(3), SM22(3), SUMM11(3), SUMM22(3), 

X DDRA2SN(3), DV1S2SN(3), DVSN(3), ADU2N(3), OSSFN(3), 

X OISSFN(3), T1T2(3,3),DYNAM,SWIRL, RWIND ,DELPS, KR2, KPS2, 

X KSWRL, KDYN, SLWND, KPS, YMHOOK, K2I(3) 

REAL 

X IIIXX, IIIYY, IIIZZ, IIIXZ, II2XX, II2YY, II2ZZ, II2XZ, 

X MI, M2, MUI2, MIPM2, M20M, NQSL, 

X ODU(I2), ODQ(I2), DLCJ(8), RAJ2(3,8), KCJ2(3,8), 

X DELQIC(I2), C(4), 

X K2N(3), KN2(3), 


RA2SN(3 

), DV2S2(3) 

, DV2SS2( 

EQUIVALENCE 

(U(I) 

VISN(I) ) 

EQUIVALENCE 

(Q(6) 

PSI ) 

EQUIVALENCE 

(TN2(1,3) , 

K2N(I) ) 

EQUIVALENCE 

(T2N(I,3), 

KN2(I) ) 

EQUIVALENCE 

(OM22(I), 

P2) 

EQUIVALENCE 

(OM22(2), 

Q2) 

EQUIVALENCE 

(OM22(3), 

R2) 

EQUIVALENCE 

(DOM22(I), 

DP2) 

EQUIVALENCE 

(DOM22(2), 

DQ2) 

EQUIVALENCE 

(DOM22(3), 

DR2) 


C COMPUTE DEPENDENT PARAMETERS AND LOAD-SUSPENSION 

C POSITION COORDINATES FOR STATIC EQUILIBRIUM. 

C- idle mode (not used) 

IF (IMODE.EQ.O) RETURN 
DT02 = .5*DT 
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C- initial conditions 

C current helicopter mass and inertia from STRIKE 


Ml 

= Wl/G 

TMPl 

= IIXZ/(I1XX*I1 

TMP2 

= 1 - TMP1*I1XZ 

IIIXX 

= 1/(I1XX*TMP2) 

IIIXZ 

= TMP1/TMP2 

IIIYY 

= 1/IlYY 

IIIZZ 

=1/(I1ZZ*TMP2) 


C load parameters 


M2 

= W2/G 

TMPl 

= I2XZ/(I2XX*I2 

TMP2 

= 1 - TMP1*I2XZ 

II2XX 

= 1/(I2XX*TMP2) 

II2XZ 

= TMP1/TMP2 

II2YY 

= 1/I2YY 

II2ZZ 

=1/(I2ZZ*TMP2) 


C compute derived mass parameters 
MU12 = 1/Ml + 1/M2 

M1PM2 = Ml + M2 

M20M = M2/M1PM2 


C- initial conditions (trim) mode 

C load-suspension states, add load yaw initial offset for yaw 
stability tests 

IF (IMODE.lt.0) THEN 
CALL GHSLMC_IC 
PS2 = PS2 + DELPS20/R2D 

DO 10 I = 7,12 
U(I) =0. 

10 DQ(I) = 0. 

OM22(3) = R20D/R2D 

DPS2 = OM22(3)*COS(PH2)/COS(TH2) 

C NS counts records stored 
NS =0 

DT02 = 0. 


c 

magnetic dip 

angle at moffett 

c 

DIP 

= 61.25/R2D 

c 

SDIP 

= SIN(DIP) 

c 

CDIP 

= COS(DIP) 


END IF 



Q************* OPERATE CODE **************** 

C*** SEC 100: read in HC states and position kinematics 
C read in HC states from STRIKE to q, dq, u, TIN 


PHI 

= A ( 4 

THl 

= A( 5 

PSl 

= A( 6 

RISN (1) 

= A(106 

RISN(2) 

= A(107 
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RISN (3) 

= 

-A(176) 

DO 102 I 

= 

1,3 

VISN (I) 

= 

A(63 + I) 

DQ(I) 

= 

VISN(I) 

OMll(I) 

= 

A(36 + I) 

102 DQ(3+I) 

= 

A( 6 + I) 

DO 101 I 

= 

1,3 

DO 101 J 

= 

1,3 

TIN (I, J) 

= 

A(15+I+(J-1)*3) 

101 TN1(J,I) 

= 

A(15+I+(J-1)*3) 

C position kinematics 

SPHl 

= 

SIN(PHI) 

CPHl 

= 

COS(PHI) 

STHl 

= 

SIN(THl) 

CTHl 

= 

COS(THl) 

SPH2 

= 

SIN(PH2) 

CPH2 

= 

COS(PH2) 

STH2 

= 

SIN(TH2) 

CTH2 

= 

COS(TH2) 

SPS2 

= 

SIN(PS2) 

CPS2 

= 

COS(PS2) 

T2N(1,1) 

= 

CPS2*CTH2 

T2N(1,2) 

= 

CTH2*SPS2 

T2N(1,3) 

= 

-STH2 

T2N(2,1) 

= 

CPS2*SPH2*STH2-CPH2*SPS2 

T2N(2,2) 

= 

SPH2*SPS2*STH2+CPH2*CPS2 

T2N(2,3) 

= 

CTH2*SPH2 

T2N(3,1) 

= 

CPH2*CPS2*STH2+SPH2*SPS2 

T2N(3,2) 

= 

CPH2*SPS2*STH2-CPS2*SPH2 

T2N(3,3) 

= 

CPH2*CTH2 

TN2(1,1) 

= 

T2N(1,1) 

TN2(1,2) 

= 

T2N(2,1) 

TN2(1,3) 

= 

T2N(3,1) 

TN2 (2,1) 

= 

T2N(1,2) 

TN2 (2,2) 

= 

T2N(2,2) 

TN2 (2,3) 

= 

T2N(3,2) 

TN2(3,1) 

= 

T2N(1,3) 

TN2(3,2) 

= 

T2N(2,3) 

TN2(3,3) 

= 

T2N(3,3) 

C*** SEC. 200, 


LOAD AERODYNAMICS. 

C load air velocity: v2sn = vlsn - TN1*S(rlsal)*omll - 

TN2*S(ra2s2)*om22 

! + 

C 


Tn2*dra2s2 

C 


or v2sn = vlsn + A22*omll + A23*om22 + dra2sn 

A22 (1,1) 

= 

TNI(1,3)*R1SA1 (2) - TNI(1,2)*R1SA1 (3) 

A22 (1,2) 

= 

TNI(1,1)*R1SA1(3) - RlSAl(1)*TN1 (1,3) 

A22 (1,3) 

= 

RlSAl(1)*TN1 (1,2) - TNI(1,1)*R1SA1 (2) 

A22 (2,1) 

= 

RlSAl(2)*TN1(2,3) - TNI(2,2)*R1SA1 (3) 

A22 (2,2) 

= 

TNI(2,1)*R1SA1(3) - RlSAl(1)*TN1(2,3) 

A22(2,3) 

= 

RlSAl(1)*TN1 (2,2) - RlSAl(2)*TN1 (2, 1) 

A22(3,1) 

= 

RlSAl(2)*TN1(3,3) - RlSAl(3)*TN1 (3,2) 

A22(3,2) 

= 

RlSAl(3)*TN1(3,1) - RlSAl(1)*TN1(3,3) 

A22(3,3) 

= 

RlSAl(1)*TN1 (3,2) - RlSAl(2)*TN1 (3, 1) 

A23 (1,1) 

= 

TN2(1,3)*RA2S2(2) - TN2(1,2)*RA2S2 (3) 
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A23 (1,2) 
A23 (1,3) 
A23 (2,1) 
A2 3 (2,2) 
A23 (2,3) 
A23 (3,1) 
A23 (3,2) 
A23 (3,3) 
CORIN(1) 
CORIN(2) 
CORIN(3) 
COR2N(1) 
COR2N(2) 
COR2N(3) 
DRA2SN(1) 

DRA2SN(2) 

DRA2SN(3) 

V1S2SN(1) 
V1S2SN(2) 
V1S2SN(3) 
V2SN(1) 
V2SN(2) 
V2SN(3) 
VA2SN(1) 
VA2SN(2) 
VA2SN(3) 
VA2S2(1) 
VA2S2(2) 
VA2S2(3) 


= TN2(1,1)*RA2S2(3) - RA2S2(1)*TN2(1,3) 

= RA2S2(1)*TN2 (1,2) - TN2(1,1)*RA2S2(2) 

= RA2S2 (2) *TN2 (2, 3) - TN2 (2,2) *RA2S2 (3) 

= TN2 (2, 1) *RA2S2 (3) - RA2S2 (1) *TN2 (2, 3) 

= RA2S2 (1) *TN2 (2,2) - RA2S2 (2) *TN2 (2, 1) 

= RA2S2(2)*TN2(3,3) - RA2S2(3)*TN2(3,2) 

= RA2S2(3)*TN2(3,1) - RA2S2(1)*TN2(3,3) 

= RA2S2 (1) *TN2 (3,2) - RA2S2 (2) *TN2 (3, 1) 

= A22(1,3)*OMll(3)+A22(1,2)*OMll(2)+OM11(1)*A22(1,1) 

= A22(2,3)*OMll(3)+OM11(2)*A22(2,2)+OM11(1)*A22(2,1) 

= OMll(3)*A22(3,3)+OM11(2)*A22(3,2)+OM11(1)*A22(3,1) 

= A23(1,3)*OM22(3)+A23(1,2)*OM22(2)+OM22(1)*A23(1,1) 

= A23(2,3)*OM22(3)+OM22(2)*A23(2,2)+OM22(1)*A23(2, 1) 

= OM22(3)*A23(3,3)+OM22(2)*A23(3,2)+OM22(1)*A23(3,1) 

= TN2(1,3)*DRA2S2(3)+TN2(1,2)*DRA2S2(2)+ 

DRA2S2(1)*TN2(1,1) 

= TN2(2,3)*DRA2S2(3)+DRA2S2(2)*TN2(2,2)+ 

DRA2S2(1)*TN2(2,1) 

= DRA2S2(3)*TN2(3,3)+DRA2S2(2)*TN2(3,2)+ 

DRA2S2(1)*TN2(3,1) 

= DRA2SN(1) + COR2N(l) + CORIN(1) 

= DRA2SN(2) + COR2N(2) + CORIN(2) 

= DRA2SN(3) + COR2N(3) + CORIN(3) 

= VISN (1) + V1S2SN(1) 

= VISN(2) + V1S2SN(2) 

= VISN(3) + V1S2SN (3) 

= V2SN (1) - WN (1) 

= V2SN (2) - WN (2) 

= V2SN (3) - WN (3) 

= T2N (1,3) *VA2SN (3) +T2N (1,2) *VA2SN (2) +VA2SN (1) *T2N (1, 1) 
= T2N(2,3)*VA2SN(3)+VA2SN(2)*T2N(2,2)+VA2SN(1)*T2N(2,1) 
= VA2SN (3) *T2N (3, 3) +VA2SN (2) *T2N (3,2) +VA2SN (1) *T2N (3, 1) 


Q****** load aerodynamics **************** 

C Load aerodynamics: option lAERSL = 0: no aero, 1: drag only, 2: 
CONEX aero 

DO 110 I = 1,3 
FA22(I) = 0. 

110 MA22(I) = 0. 

IF (IWAKE.EQ.l) CALL WAKE 
IF (lAERSL.EQ.1) THEN 

VA2 = SORT(VA2S2(1)**2 + VA2S2(2)**2 + VA2S2(3)**2) 

DOV = DOQ*RHO*VA2/2. 

FA22(1) = -DOV*VA2S2(1) 

FA22(2) = -DOV*VA2S2(2) 

FA22(3) = -DOV*VA2S2(3) 

ELSE IF (lAERSL.EQ.2) THEN 
CALL CONEXAERO 
ELSE IF (lAERSL.EQ.3) THEN 
CALL CONEX4 

VA2 = SQRT(VA2S2(1)**2 + VA2S2(2)**2 + VA2S2(3)**2) 

RWIND = 5*ABS(R2) 

DYNAM = KDYN*SIGN(l,R2)*.5*RHO*VA2*(VA2 - RWIND) 

SWIRL = MAX(0,KSWRL*(1-VA2/33.756)) 

MA22(3) = MA22(3) + DYNAM + SWIRL 


118 



ELSE IF (lAERSL.EQ.4) THEN 
CALL C0NEX4A 

VA2 = SQRT(VA2S2(1)**2 + VA2S2(2)**2 + VA2S2(3)**2) 

RWIND = 5*ABS(R2) 

DYNAM = KDYN*SIGN(l,R2)*.5*RHO*VA2*(VA2 - RWIND) 

SWIRL = MAX(0,KSWRL*(1-VA2/33.756)) 

MA22(3) = MA22(3) + DYNAM + SWIRL 

END IF 


C Call for Load Stabilization Program 

IF (STABSYST .EQ. 1) CALL LOADSTABl 

C*** SEC 300. fo = fg + fa - X - D dA u 


TV12 (1) 
TV12(2) 
TV12(3) 
TV22(1) 
TV22 (2) 
TV22(3) 
TV2N (1) 
TV2N(2) 
TV2N(3) 
CAll(1) 

CAll(2) 

CAll(3) 

DAU2N(1) 

DAU2N(2) 

DAU2N(3) 

JOMll(1) 
JOMll(2) 
JOMll(3) 
JOM22 (1) 
JOM22(2) 
JOM22 (3) 
Xll (1) 
Xll (2) 
Xll (3) 
X22 (1) 
X22 (2) 
X22(3) 
FAIN (1) 
FAIN(2) 
FAIN(3) 


= OM22(2)*RA2S2(3) - RA2S2(2)*OM22(3) + 2.*DRA2S2(1) 
= -OM22(1)*RA2S2(3) + RA2S2(1)*OM22(3) + 2.*DRA2S2(2) 
= OM22(1)*RA2S2(2) - RA2S2(1)*OM22(2) + 2.*DRA2S2(3) 
= OM22(2)*TV12(3) - TV12(2)*OM22(3) 

= -OM22(1)*TV12(3) + TV12(1)*OM22(3) 

= OM22(1)*TV12(2) - TV12(1)*OM22(2) 

= TN2(1,3)*TV22(3)+TN2(1,2)*TV22(2)+TV22(1)*TN2 (1,1) 

= TN2(2,3)*TV22(3)+TV22(2)*TN2(2,2)+TV22(1)*TN2(2,1) 

= TV22(3)*TN2(3,3)+TV22(2)*TN2(3,2)+TV22(1)*TN2(3,1) 

= OMll(2)*(OMll(1)*R1SA1(2)-RlSAl(1)*OMll(2))- 
OMll(3)*(RlSAl(1)*OMll(3)-OMll(1)*R1SA1(3)) 

= OMll(3)*(OMll(2)*R1SA1(3)-RlSAl(2)*OMll(3))- 
OMll(1)*(OMll(1)*R1SA1(2)-RlSAl(1)*OMll(2)) 

= OMll(1)*(RlSAl(1)*OMll(3)-OMll(1)*R1SA1(3))- 
OMll(2)*(OMll(2)*R1SA1(3)-RlSAl(2)*OMll(3)) 

= TNI(1,3)*CA11(3)+TN1(1,2)*CA11(2)+ 

CAl1(1)*TN1(1,1)+TV2N(1) 

= TNI(2,3)*CA11(3)+CA11(2)*TN1(2,2)+ 

CAll (1) *TN1(2,1)+TV2N (2) 

= CAll(3)*TN1(3,3)+CA11(2)*TN1 (3,2) + 

CAl1(1)*TN1(3,1)+TV2N(3) 

= OMl1(1)*IIXX-OMl1(3)*IIXZ 
= OMll(2)*I1YY 
= OMll(3)*I1ZZ-0M11(1)*I1XZ 
= OM22(1)*I2XX-OM22(3)*I2XZ 
= OM22(2)*I2YY 
= OM22(3)*I2ZZ-OM22(1)*I2XZ 
= OMll(2)*JOMll(3) - JOMll(2)*OMll(3) 

= JOMll(1)*OMll(3) - OMll(1)*JOMll(3) 

= OMll(1)*JOMll(2) - JOMll(1)*OMll(2) 

= OM22(2)*JOM22(3) - JOM22(2)*OM22(3) 

= JOM22(1)*OM22(3) - OM22(1)*JOM22(3) 

= OM22(1)*JOM22 (2) - JOM22(1)*OM22 (2) 

= TNI(1,3) *FA11(3)+TN1(1,2)*FA11(2)+FA11(1)*TN1(1,1) 

= TNI(2,3)*FA11(3)+FA11(2)*TN1(2,2)+FA11(1)*TN1(2,1) 

= FAll(3)*TN1(3,3)+FA11(2)*TN1(3,2)+FA11(1)*TN1(3,1) 


C add in the weight of the rotor system to the total aerodynamic 
C force on the system because GENHEL treats the helo/rotor as two a 
C two body system, but the ghslmc logic requires entire helo as one 
body 
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C and the load as the second. 

FAIN(3) = FAIN(3) - WBLADE*NBS 

FAll(l) = TIN(1,3)*FA1N(3)+T1N(1,2)*FA1N(2)+FA1N(1)*T1N(1,1) 
FA11(2) = TIN(2,3)*FA1N(3)+FA1N(2)*T1N(2,2)+FA1N(1)*T1N(2,1) 
FA11(3) = FAIN(3)*T1N(3,3)+FA1N(2)*T1N(3,2)+FA1N(1)*T1N(3,1) 

FA2N(1) = TN2(1,3)*FA22(3)+TN2(1,2)*FA22(2)+FA22(1)*TN2(1, 1) 
FA2N(2) = TN2(2,3)*FA22(3)+FA22(2)*TN2(2,2)+FA22(1)*TN2(2,1) 
FA2N(3) = FA22(3)*TN2(3,3)+FA22(2)*TN2(3,2)+FA22(1)*TN2(3,1) 
FOlN(l) = FAlN(l) 

F01N(2) = FA1N(2) 

F01N(3) = W1 + FA1N(3) 

F02N(1) = FA2N(1) - M2*DAU2N(1) 

F02N(2) = FA2N(2) - M2*DAU2N(2) 

F02N(3) = W2 + FA2N(3) - M2*DAU2N(3) 

MOll(l) = MAll(l) - Xll(l) 

M011(2) = MA11(2) - Xll(2) 

M011(3) = MA11(3) - Xll(3) 

M022(l) = MA22(1) - X22(l) 

M022(2) = MA22(2) - X22(2) 

M022(3) = MA22(3) - X22(3) 

C*** SEC 400: SUSPENSION FORCES ON HC AND LOAD fc = H fcln 

IF (STRETCH.EQ.0) THEN 

C inelastic cable; fcln = -[HT*DI*H]^-l*HT*DI*fo 

A22J1I(1,1) = A22(1,3)*II1XZ+A22(1,1)*II1XX 

A22J1I(1,2) = A22(1,2)*II1YY 

A22J1I(1,3) = A22(1,3)*II1ZZ+A22(1,1)*II1XZ 

A22J1I(2,1) = A22(2,3)*II1XZ+A22(2,1)*II1XX 

A22J1I(2,2) = A22(2,2)*II1YY 

A22J1I(2,3) = A22(2,3)*II1ZZ+A22(2,1)*II1XZ 

A22J1I(3,1) = A22(3,3)*II1XZ+A22(3,1)*II1XX 

A22J1I(3,2) = A22(3,2)*II1YY 

A22J1I(3,3) = A22(3,3)*II1ZZ+A22(3,1)*II1XZ 

A23J2I(1,1) = A23(1,3)*II2XZ+A23(1,1)*II2XX 

A23J2I(1,2) = A23(1,2)*II2YY 

A23J2I(1,3) = A23(1,3)*II2ZZ+A23(1,1)*II2XZ 

A23J2I(2,1) = A23(2,3)*II2XZ+A23(2,1)*II2XX 

A23J2I(2,2) = A23(2,2)*II2YY 

A23J2I(2,3) = A23(2,3)*II2ZZ+A23(2,1)*II2XZ 

A23J2I(3,1) = A23(3,3)*II2XZ+A23(3,1)*II2XX 

A23J2I(3,2) = A23(3,2)*II2YY 

A23J2I(3,3) = A23(3,3)*II2ZZ+A23(3,1)*II2XZ 

TV3N(1) = A22J1I(1,3)*M011(3)+A22J1I(1,2)*M011(2)+ 

X MOll(1)*A22J1I(1,1) 

TV3N(2) = A22J1I(2,3)*M011(3)+M011(2)*A22J1I(2,2)+ 

X MOll(1)*A22J1I(2,1) 

TV3N(3) = MOll(3)*A22J1I(3,3)+M011(2)*A22J1I(3,2)+ 

X MOll(1)*A22J1I(3,1) 

TV4N(1) = A23J2I(1,3)*M022(3)+A23J2I(1,2)*M022(2)+ 

X M022(1)*A23J2I(1,1) 

TV4N(2) = A23J2I(2,3)*M022(3)+M022(2)*A23J2I(2,2)+ 

X M022(1)*A23J2I(2,1) 

TV4N(3) = M022(3)*A23J2I(3,3)+M022(2)*A23J2I(3,2) + 

X M022(1)*A23J2I(3,1) 
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HTDIFO(1) 
HTDIFO(2) 
HTDIFO(3) 
RJRl(1,1) 

X 

RJRl(1,2) 

X 

RJRl(1,3) 

X 

RJRl(2,2) 

X 

RJRl(2,3) 

X 

RJRl(3,3) 

X 

RJR2(1,1) 

X 

RJR2(1,2) 

X 

RJR2(1,3) 

X 

RJR2(2,2) 

X 

RJR2(2,3) 

X 

RJR2(3,3) 

X 


-F02N (1) /M2+F01N (1) /M1+TV4N (1) +TV3N (1) 
-F02N(2)/M2+F01N(2)/M1+TV4N(2)+TV3N(2) 
-F02N(3)/M2+F01N(3)/M1+TV4N(3)+TV3N (3) 

A22(1,3)*A22J1I(1,3)+A22(1,2)*A22J1I(1,2)+ 
A22(1,1)*A22J1I(1,1) 

A22J1I(1, 3)*A22(2,3)+A22J1I(1,2)*A22(2,2) + 
A22J1I(1,1)*A22(2,1) 

A22J1I(1,3)*A22(3,3)+A22J1I(1,2)*A22(3,2)+ 
A22J1I(1,1)*A22(3,1) 

A22(2,3)*A22J1I(2,3)+A22(2,2)*A22J1I(2,2)+ 
A22(2,1)*A22J1I(2,1) 

A22J1I(2,3)*A22(3,3)+A22J1I(2,2)*A22(3,2)+ 
A22J1I(2,1)*A22(3,1) 

A22(3,3)*A22J1I(3,3)+A22(3,2)*A22J1I(3,2)+ 
A22(3,1)*A22J1I(3,1) 

A23(1,3)*A23J2I(1,3)+A23(1,2)*A23J2I(1,2)+ 
A23(1,1)*A23J2I(1,1) 

A23J2I(1,3)*A23(2,3)+A23J2I(1,2)*A23(2,2)+ 
A23J2I(1,1)*A23(2,1) 

A23J2I(1,3)*A23(3,3)+A23J2I(1,2)*A23(3,2)+ 
A23J2I(1,1)*A23(3,1) 

A23(2,3)*A23J2I(2,3)+A23(2,2)*A23J2I(2,2)+ 
A23(2,1)*A23J2I(2,1) 

A23J2I(2,3)*A23(3,3)+A23J2I(2,2)*A23(3,2)+ 
A23J2I(2,1)*A23(3,1) 

A23(3,3)*A23J2I(3,3)+A23(3,2)*A23J2I(3,2)+ 
A23(3,1)*A23J2I(3,1) 


C upper triangle elements of symmetric HTDIH 

511 = MU12+RJR2(1,1)+RJR1(1,1) 

512 = RJR2 (1,2)+RJR1 (1,2) 

513 = RJR2 (1,3)+RJR1 (1, 3) 

522 = MU12+RJR2(2,2)+RJR1(2,2) 

523 = RJR2 (2,3)+RJR1 (2, 3) 

S33 = MU12+RJR2(3,3)+RJR1(3,3) 


C upper triangle elements of symmetric HTDIH^-1 
CFll = S22*S33 - S23*S23 
CF12 = S12*S33 - S13*S23 
CF13 = S12*S23 - S13*S22 
CF22 = S11*S33 - S13*S13 
CF23 = S23*S11 - S12*S13 
CF33 = S11*S22 - S12*S12 
DET = S11*CF11 - S12*CF12 + S13*CF13 

5111 = CFll/DET 

5112 = -CF12/DET 

5113 = CF13/DET 

5122 = CF22/DET 

5123 = -CF23/DET 
SI33 = CF33/DET 


cable force on helicopter, inertial axes components 

FClN(l) = -HTDIFO(3)*SI13-HTDIFO(2)*SI12-HTDIF0(1)*SI11 
FC1N(2) = -HTDIFO(3)*SI23-HTDIFO(2)*SI22-HTDIFO(1)*SI12 
FC1N(3) = -HTDIFO(3)*SI33-HTDIFO(2)*SI23-HTDIFO(1)*SI13 


ELSE 
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C elastic cables: fcl2 


1, ...,nc) 


= sum(tauj*kcj2, j = 


FC12 (1) = 0. 
FC12 (2) = 0. 
FC12 (3) = 0. 


X 


300 


DO 300 J 
RAJ2(1,J) 
RAJ2(2,J) 
RAJ2(3,J) 
LCJ(J) 
KCJ2(1,J) 
KCJ2(2,J) 
KCJ2(3,J) 
DLCJ(J) 

TAUJ(J) 
FC12 (1) 
FC12 (2) 
FC12(3) 
CONTINUE 


= 1,NC 

= RA2S2(1) + R2SJ2(1,J) 

= RA2S2(2) + R2SJ2(2,J) 

= RA2S2(3) + R2SJ2(3,J) 

= SORT(RAJ2(3,J)**2+RAJ2(2,J)**2+RAJ2(1,J)**2) 
= RAJ2(1,J)/LCJ(J) 

= RAJ2(2,J)/LCJ(J) 

= RAJ2(3,J)/LCJ(J) 

= DRA2S2(3)*KCJ2(3,J)+DRA2S2(2)*KCJ2(2,J) 
+DRA2S2(1)*KCJ2(1,J) 

= AMAXl(0.,KS*(LCJ(J) - LCJO(J)) + CS*DLCJ(J)) 
= FC12(1) + KCJ2(1,J)*TAUJ(J) 

= FC12(2) + KCJ2(2,J)*TAUJ(J) 

= FC12(3) + KCJ2(3,J)*TAUJ(J) 


FClN(l) = TN2(1,3)*FC12(3)+TN2(1,2)*FC12(2)+FC12(1)*TN2(1,1) 
FC1N(2) = TN2(2,3)*FC12(3)+FC12(2)*TN2(2,2)+FC12(1)*TN2(2,1) 
FC1N(3) = FC12(3)*TN2(3,3)+FC12(2)*TN2(3,2)+FC12(1)*TN2(3,1) 


ENDIF 


C in sim IC use susp force result from load-susp IC logic 
IF (IMODE.lt.0) THEN 

FClN(l) = -TN2(1, 3)*FC22(3)-TN2(1,2)*FC22(2)-FC22(1)*TN2(1,1) 
FC1N(2) = -TN2(2,3)*FC22(3)-FC22(2)*TN2(2,2)-FC22(1)*TN2 (2,1) 
FC1N(3) = -FC22(3)*TN2(3,3)-FC22(2)*TN2(3,2)-FC22(1)*TN2(3,1) 
END IF 


C suspension forces and eg moments on the HC and load 


FC2N(1) 
FC2N(2) 
FC2N(3) 
MCll (1) 
MCll (2) 
MCll (3) 
MC22 (1) 
MC22 (2) 
MC22(3) 


-FCIN(1) 

-FCIN(2) 

-FCIN(3) 

FCIN(3)*A22(3, 1)+FC1N(2)*A22(2,1)+FC1N(1)*A22(1,1) 
FCIN(3)*A22(3,2)+FC1N(2)*A22(2,2)+FC1N(1)*A22(1,2) 
FCIN(3)*A22(3,3)+FC1N(2)*A22(2,3)+FC1N(1)*A22(1,3) 
FCIN(3)*A23(3,1)+FC1N(2)*A23(2,1)+FC1N(1)*A23(1,1) 
FCIN(3)*A2 3(3,2)+FC1N(2)*A2 3(2,2)+FC1N(1)*A2 3(1,2) 
FCIN(3)*A23(3,3)+FC1N(2)*A23(2,3)+FC1N(1)*A23(1,3) 


C Addition of yaw resistance torque at the hook 
DELPS = PS2 - PSl 

SLWND = .98*(1 - 6.283/(5*ABS(DELPS) + .017)) 

CALL SLINGTORQ 

YMHOOK = -KR2*R2 - KPS 

MC22(3) = MC22(3) + YMHOOK 

K21(l) = T1N(1,3)*K2N(3)+T1N(1,2)*K2N(2)+K2N(1)*T1N(1,1) 

K21(2) = T1N(2,3)*K2N(3)+K2N(2)*T1N(2,2)+K2N(1)*T1N(2,1) 
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K21(3) = K2N(3)*T1N(3,3)+K2N(2)*T1N(3,2)+K2N(1)*T1N(3,1) 

MCll(l) = MCll(l) - YMH00K*K21(1) 

MC11(2) = MC11(2) - YMH00K*K21(2) 

MC11(3) = MC11(3) - YMH00K*K21(3) 


C*** SEC 500: ACCELERATIONS. du = A^-1 D^-1 (fo + fc) = A^-1 sf 

SFlN(l) = (FOlN(l) + FC1N(1))/M1 

SF1N(2) = (F01N(2) + FC1N(2))/M1 

SF1N(3) = (F01N(3) + FC1N(3))/M1 

SF2N(1) = (F02N(1) + FC2N(1))/M2 

SF2N(2) = (F02N(2) + FC2N(2))/M2 

SF2N(3) = (F02N(3) + FC2N(3))/M2 

SUMMIT(1) = MOll(l) + MCll(l) 

SUMMIT(2) = MOTT(2) + MCTT(2) 

SUMMTT(3) = MOTT(3) + MCTT(3) 

SUMM22(T) = M022(T) + MC22(T) 

SUMM22(2) = M022(2) + MC22(2) 

SUMM22(3) = M022(3) + MC22(3) 

SMT T(T) = SUMMT T(3)*IITXZ + SUMMT T(T)*11TXX 

SMTT(2) = SUMMTT(2)*IITYY 

SMT T(3) = SUMMT T(3)*IITZZ + SUMMT T(T)*IITXZ 

SM22(T) = SUMM22(3)*II2XZ + SUMM22(T)*II2XX 

SM22(2) = SUMM22(2)*II2YY 

SM22(3) = SUMM22(3)*II2ZZ + SUMM22(T)*II2XZ 

DVTSN(T) = SFTN(T) 

DVTSN(2) = SFTN(2) 

DVTSN(3) = SFTN(3) 

DOMTT(T) = SMTT(T) 

DOMTT(2) = SMTT(2) 

DOMTT(3) = SMTT(3) 

DOM22(T) = SM22(T) 

DOM22(2) = SM22(2) 

DOM22 (3) = SM22(3) 

TV5N(T) = A22(T, 3)*SMTT(3)+A22(T,2)*SMTT(2)+SMTT (T)*A22 (T,T) 
TV5N(2) = A22(2,3)*SMTT(3)+SMTT(2)*A22(2,2)+SMTT(T)*A22(2,T) 

TV5N(3) = SMTT(3)*A22(3,3)+SMTT(2)*A22(3,2)+SMTT(T)*A22(3,T) 

TV6N(T) = A23(T,3)*SM22(3)+A23(T,2)*SM22(2)+SM22(T)*A23(T,T) 
TV6N(2) = A23(2,3)*SM22(3)+SM22(2)*A23(2,2)+SM22(T)*A23(2,T) 

TV6N(3) = SM22(3)*A23(3,3)+SM22(2)*A23(3,2)+SM22(T)*A23(3,T) 

DDRA2SN(T) = SF2N(T) - TV6N(T) - TV5N(T) - SFTN(T) 

DDRA2SN(2) = SF2N(2) - TV6N(2) - TV5N(2) - SFTN(2) 

DDRA2SN(3) = SF2N(3) - TV6N(3) - TV5N(3) - SFTN(3) 

DDRA2S2(T) = T2N(T,3)*DDRA2SN(3)+T2N(T,2)*DDRA2SN(2)+ 

X DDRA2SN(T)*T2N(T,T) 

DDRA2S2(2) = T2N(2,3)*DDRA2SN(3)+DDRA2SN(2)*T2N(2,2)+ 

X DDRA2SN(T)*T2N (2,T) 

DDRA2S2(3) = DDRA2SN(3)*T2N(3,3)+DDRA2SN(2)*T2N(3,2)+ 

X DDRA2SN(T)*T2N(3,T) 

C*** SEC 600. system eg errors, initiaTize integrators 

RTS2SN(T) = TN2(T,3)*RA2S2(3)+TNT(T,3)*RTSAT(3)+ 

X TN2 (T, 2) *RA2S2 (2) +TNT (T, 2) *RTSAT (2) + 

RA2S2 (T) *TN2 (T, T) +RTSAT (T) *TNT (T, T) 
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X 



X 

X 


X 

X 


R1S2SN(2) = TN2(2,3)*RA2S2(3)+TN1(2,3)*R1SA1(3)+ 

RA2S2(2)*TN2(2,2)+R1SA1(2)*TN1(2,2)+ 

RA2S2 (1) *TN2 (2, 1) +R1SA1 (1) *TN1 (2, 1) 

R1S2SN(3) = RA2S2(3)*TN2(3,3)+R1SA1(3)*TN1(3, 3) + 

RA2S2(2)*TN2(3,2)+R1SA1(2)*TN1(3,2)+ 

RA2S2(1)*TN2(3,1)+R1SA1(1)*TN1(3,1) 

RSN(l) = R1S2SN(1)*M20M + RlSN(l) 

RSN(2) = R1S2SN(2)*M20M + R1SN(2) 

RSN(3) = R1S2SN(3)*M20M + R1SN(3) 

VSN(l) = V1S2SN(1)*M20M + VlSN(l) 

VSN(2) = V1S2SN(2)*M20M + V1SN(2) 

VSN(3) = V1S2SN(3)*M20M + V1SN(3) 

TV7N(1) = A22(1,3)*D0M11(3)+A22(1,2)*D0M11(2)+D0M11(1)*A22 
TV7N(2) = A22(2,3)*D0M11(3)+D0M11(2)*A22(2,2)+D0M11(1)*A22 
TV7N(3) = DOMll(3)*A22(3,3)+D0M11(2)*A22(3,2)+D0M11(1)*A22 
TV8N(1) = A23(1,3)*DOM22(3)+A23(1,2)*DOM22(2)+DOM22(1)*A23 
TV8N(2) = A23(2,3)*DOM22(3)+DOM22(2)*A23(2,2)+DOM22(1)*A23 
TV8N(3) = DOM22(3)*A23(3,3)+DOM22(2)*A23(3,2)+DOM22(1)*A23 
ADU2N(1) = TV8N(1) + TV7N(1) + DDRA2SN(1) 

ADU2N(2) = TV8N(2) + TV7N(2) + DDRA2SN(2) 

ADU2N(3) = TV8N(3) + TV7N(3) + DDRA2SN(3) 

DV1S2SN(1) = DAU2N(1) + ADU2N(1) 

DV1S2SN(2) = DAU2N(2) + ADU2N(2) 

DV1S2SN(3) = DAU2N(3) + ADU2N(3) 

DVSN(l) = DV1S2SN(1)*M20M + DVlSN(l) 

DVSN(2) = DV1S2SN(2)*M20M + DV1SN(2) 

DVSN(3) = DV1S2SN(3)*M20M + DV1SN(3) 

SSFN(l) = (FA2N(1) + FAIN(1))/M1PM2 
SSFN(2) = (FA2N(2) + FAIN(2))/M1PM2 
SSFN(3) = (FA2N(3) + FAIN(3))/M1PM2 + G 


( 1 , 1 ) 

( 2 , 1 ) 

(3.1) 

( 1 . 1 ) 
( 2 , 1 ) 
(3,1) 


C save initial c.g. 

IF (T.LE.DT02) 
DO 600 I = 
RSON (I) 

VSON (I) 
ISSFN (I) 
IISSFN(I) 
OSSFN(I) 
OISSFN(I) 
DQ(I) 

600 DQ(9+I) 


states and 
THEN 
1,3 

= RSN(I) 

= VSN(I) 

= 0 . 

= 0 . 

= SSFN(I) 

= 0 . 

= VISN (I) 

= DRA2S2 (I) 


initialize 


integrations 


DPSl 

DPHl 

DTHl 

DPS2 

DPH2 

DTH2 


(OMll(2)*SPH1 + OMll(3)*CPH1)/CTHl 
OMll(1) + DPS1*STH1 

OMll(2)*CPHl - OMll(3)*SPHl 
(OM22(2)*SPH2 + OM22(3)*CPH2)/CTH2 
OM22(1) + DPS2*STH2 
OM22(2)*CPH2 - OM22(3)*SPH2 


DO 601 I = 1,12 
ODU(I) = DU(I) 

601 ODQ(I) = DQ(I) 


END IF 


C eg errors and integrate SSFN for eg errors 
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DELDVSN(l) = DVSN(l) - SSFN(l) 

DELDVSN(2) = DVSN(2) - SSFN(2) 

DELDVSNO) = DVSN(3) - SSFN(3) 

DELVSN(l) = VSN(l) - ISSFN(l) - VSON(l) 

DELVSN(2) = VSN(2) - ISSFN(2) - VS0N(2) 

DELVSN(3) = VSN(3) - ISSFN(3) - VS0N(3) 

DELRSN(l) = RSN(l) - VSON(l)*T - RSON(l) - IISSFN(l) 

DELRSN(2) = RSN(2) - VSON(2)*T - RSON(2) - IISSFN(2) 

DELRSN(3) = RSN(3) - VSON(3)*T - RSON(3) - IISSFN(3) 

DO 603 I = 1,3 

ISSFN(I) = (3*SSFN(I) - OSSFN(I))*DT02 + ISSFN(I) 

IISSFN(I) = (OISSFN(I) + ISSFN(I))*DT02 + IISSFN(I) 

OSSFN(I) = SSFN(I) 

603 OISSFN(I) = ISSFN(I) 

C*** SEC 700. transfer data to calling program and data storage 


FCll(l) = TIN(1,3)*FC1N(3)+T1N(1,2)*FC1N(2)+FC1N(1)*T1N(1,1) 
FC11(2) = TIN(2,3)*FC1N(3)+FC1N(2)*T1N(2,2)+FC1N(1)*T1N (2,1) 
FC11(3) = FCIN(3)*T1N(3,3)+FC1N(2)*T1N(3,2)+FC1N(1)*T1N (3,1) 
SLINGTENSION = SQRT(FCIN(1)**2 + FC1N(2)**2 + FC1N(3)**2) 

C*** Remainder of this section generates auxilliary variables. 

DVISI(1) = TIN(1,3)*DV1SN(3)+T1N(1,2)*DV1SN(2)+DV1SN(1)*T1N(1,1) 
DVISI(2) = TIN(2,3)*DV1SN(3)+DV1SN(2)*T1N(2,2)+DV1SN(1)*T1N(2,1) 
DVlSl(3) = DVISN(3)*T1N(3,3)+DV1SN(2)*T1N(3,2)+DV1SN(1)*T1N(3,1) 

FC22(1) = T2N(1,3)*FC2N(3)+T2N(1,2)*FC2N(2)+FC2N(1)*T2N(1,1) 
FC22(2) = T2N(2,3)*FC2N(3)+FC2N(2)*T2N(2,2)+FC2N(1)*T2N(2,1) 
FC22(3) = FC2N(3)*T2N(3,3)+FC2N(2)*T2N(3,2)+FC2N(1)*T2N(3,1) 

C hook-to-load-cg vector 

RA2SN(1) = TN2(1,3)*RA2S2(3)+TN2(1,2)*RA2S2(2)+ 

X RA2S2 (1) *TN2 (1, 1) 

RA2SN(2) = TN2(2,3)*RA2S2(3)+RA2S2(2)*TN2(2,2) + 

X RA2S2 (1) *TN2 (2, 1) 

RA2SN(3) = RA2S2(3)*TN2(3,3)+RA2S2(2)*TN2(3,2)+ 

X RA2S2 (1) *TN2 (3, 1) 

RA2S1(1) = TIN(1,3)*RA2SN(3)+T1N(1,2)*RA2SN(2)+ 

X RA2SN(1)*T1N(1,1) 

RA2S1(2) = TIN(2,3)*RA2SN(3)+RA2SN(2)*T1N(2,2)+ 

X RA2SN(1)*T1N(2,1) 

RA2S1(3) = RA2SN(3)*T1N(3,3)+RA2SN(2)*T1N(3,2)+ 

X RA2SN(1)*T1N(3,1) 

C load inertial position (for possible 2D, 3D trajectory plots) 
R2SN(1) = RlSN(l) + R1S2SN(1) 

R2SN(2) = R1SN(2) + R1S2SN(2) 

R2SN(3) = R1SN(3) + R1S2SN(3) 

C load acceleration, body axes components 
DV2SN(1) = DVlSN(l) + DV1S2SN(1) 

DV2SN(2) = DVISN(2) + DV1S2SN(2) 

DV2SN(3) = DVISN(3) + DV1S2SN(3) 
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DV2S2(1) 


X 

DV2S2(2) 

X 

DV2S2 (3) 

X 


T2N (1,3) *DV2SN (3) +T2N (1,2) *DV2SN (2) + 
DV2SN(1)*T2N(1,1) 

T2N(2,3)*DV2SN(3)+DV2SN(2)*T2N(2,2)+ 
DV2SN(1)*T2N(2,1) 

DV2SN(3)*T2N(3,3)+DV2SN(2)*T2N(3,2) + 
DV2SN(1)*T2N(3,1) 


C load accelerometer readings 

DV2SS2(1) =-(Q2*Q2+R2*R2)*R2SS2(1) + (P2*Q2-DR2)*R2SS2(2) 
X + (P2*R2+DQ2)*R2SS2(3) 

DV2SS2(2) = (P2*Q2+DR2)*R2SS2(1) - (P2*P2+R2*R2)*R2SS2(2) 
X + (Q2*R2-DP2)*R2SS2(3) 

DV2SS2(3) = (P2*R2-DQ2)*R2SS2(1) + (Q2*R2+DP2)*R2SS2(2) 

X -(P2*P2+Q2*Q2)*R2SS2(3) 

AMGS2(1) = DV2S2(1) - G*KN2(1) + DV2SS2(1) 

AMGS2(2) = DV2S2(2) - G*KN2(2) + DV2SS2(2) 

AMGS2(3) = DV2S2(3) - G*KN2(3) + DV2SS2(3) 


C load p, q in load-HC heading axes per MT 
CPS2M1 = C0S(PS2 - PSl) 

SPS2M1 = SIN(PS2 - PSl) 

P2P = OM22(1)*CPS2M1 - OM22(2)*SPS2M1 

Q2P = OM22(1)*SPS2M1 + OM22(2)*CPS2M1 


C pht 3 mar 99 transformed load motion: 

C load ang vel in inertial coords, and in level heading (?) coords 


CPS2M1 
SPS2M1 
SPH2M1 
CPH2M1 
STH2M1 
CTH2M1 
T1T2(1,1) 
T1T2(2,1) 
T1T2(3,1) 
T1T2(1,2) 
T1T2(2,2) 
T1T2 (3,2) 
T1T2 (1,3) 
T1T2 (2,3) 
T1T2 (3,3) 


COS(PS2 - PSl) 

SIN(PS2 - PSl) 

SIN(PH2) 

COS(PH2) 

SIN(TH2) 

COS(TH2) 

CPS2M1*CTH2M1 

CTH2M1*SPS2M1 

-STH2M1 

CPS2M1*SPH2M1*STH2M1 - CPH2M1*SPS2M1 
SPH2M1*SPS2M1*STH2M1 + CPH2M1*CPS2M1 
CTH2M1*SPH2M1 

CPH2M1*CPS2M1*STH2M1 + SPH2M1*SPS2M1 
CPH2M1*SPS2M1*STH2M1 - CPS2M1*SPH2M1 
CPH2M1*CTH2M1 


P2N 

Q2N 

R2N 


TN2 (1,3) *OM22 (3) + 
TN2 (2,3) *OM22 (3) + 
OM22(3)*TN2 (3,3) + 


TN2(1,2)*OM22 (2) 
OM22(2)*TN2 (2,2) 
OM22(2)*TN2 (3,2) 


+ OM22(1)*TN2 (1,1) 
+ OM22(1)*TN2(2,1) 
+ OM22(1)*TN2(3,1) 


P21 

Q21 

R21 

C end pht 


T1T2(1,3)*OM22(3) 
T1T2(2,3)*OM22(3) 
T1T2(3,3)*OM22(3) 


+ OM22(2)*T1T2 (1,2) 
+ OM22(2)*T1T2(2,2) 
+ OM22(2)*T1T2(3,2) 


+ OM22(1)*T1T2(1,1) 
+ OM22(1)*T1T2 (2,1) 
+ OM22(1)*T1T2(3,1) 


NS = NS + 1 
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c*** 


SEC 800. INTEGRATION: compute u, q at tn + dt, store past values 


C update u. null stretching rate exactly if inelastic suspension 
DO 800 I = 1,12 

800 U(I) = U(I) + (3*DU(I) - ODU(I))*DT02 
IF (STRETCH.EQ.0) THEN 

DRA2S2(1) = 0. 

DRA2S2(2) = 0. 

DRA2S2(3) = 0. 

END IF 

C compute dq(q,u) using updated u 
DO 801 I = 1,3 
DQ(I) = VISN(I) 

801 DQ(I+9) = DRA2S2(I) 

DPSl = (OMll(2)*SPH1 + OMll(3)*CPH1)/CTHl 

DPHl = OMll(l) + DPS1*STH1 

DTHl = OMll(2)*CPHl - OMll(3)*SPHl 

DPS2 = (OM22(2)*SPH2 + OM22(3)*CPH2)/CTH2 

DPH2 = OM22(l) + DPS2*STH2 

DTH2 = OM22(2)*CPH2 - OM22(3)*SPH2 

C update q and store past values 
DO 802 I = 1,12 

Q(I) = Q(I) + (ODQ(I) + DQ(I))*DT02 
ODU(I) = DU(I) 

802 ODQ(I) = DQ(I) 

END 
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APPENDIX K GHSL INIT.F 


Initialization module for GenHel / Slung Load simulation. Load stability 
parameters were added. . Program by Tyson, P. modified by Ehlers, G. 

C file genhel/batch/sl/ghsl_init.f - 31 AUG 

98 Peter Tyson 

C Load Stabil Parameters added Jul 01 by George Ehlers 
C Initialization for GenHel/Slung Load Simulation. 

C Reads input data from 'ghsl.dat' which resides in the GenHel/batch 
C directory. Load Configuration and Slung Load run parameters are 
C appended to the FLTNAME//01.INFO outfile (ASCII format) and to the 
C screen dump during nrt program operation (only for SLSC or SLMC 
cases) . 

C Subroutine is called by BHAWK_NRT_EXEC immediately following call 
C for BHAWK_NRT_INIT. 

SUBROUTINE GHSL_INIT 

INCLUDE 'slvars.cmn' 

REAL FSHK, BLHK, WLHK, FSHB, BLHB, WLHB, FSCGTNK, FSWI, FWMX, 

X ESBLCG, ESWLCG, AIRSPEED, KSWRL, KR2, KPS2, KDYN 

CHARACTER CABLES 

EQUIVALENCE (A(238), AIRSPEED) 

DATA 

X ICUNIT, TOUT /I, 6/ 

X FSHK, WLHK, BLHK /352.6, 195.5, 0./, 

X FSHB, WLHB, BLHB /34I.2, 315.0, 0./, 

X FSCGTNK, FSWI /420.8, 6.8/, 

X ESBLCG, ESWLCG /O.O, 247.2/ 

NAMELIST /HCDATA/ TOW, XMOMTO, FWT, FWMX, AIRSPEED 

NAMELIST /SLRUN/ CHFILE, AXIS, DATAFILE, STRETCH, 

X lAERSL, ILOAD, IPILOT, IWAKE, ISWIRL, IDATA, STABSYST, 

X DYNAMIC, PWL_TIME, PWLCNTRL 


cI23456789cI23456789cI23456789cI23456789cI23456789cI23456789cI23456789c 

I 


NAMELIST /SLDATA/ LOADNAME, W2, I2XX, I2YY, I2ZZ, I2XZ, KS, 
X CS, LCO, RA2P02, R2P2S02, R2P2S2, NC, R2PJ2, R2SI2, DOQ, 

X DELPS20, R20D, R2SS2, KDYN, KSWRL, KR2, KPS2 

C Load stabilization Parameters 

NAMELIST /STABDAT/ ACTIVE, TEMP, GAINH, CH, SH, CLAH, CLDH, 

X CDOH, CDPH, STALHl, STALH2, RH, GAINV, CV, SV, CLAV, CLDV, 
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X CDOV, CDPV, STALVl, STALV2, RV 


C reset RLOAD common block variables 
DO 1 I = 1,500 
1 RLOAD(I) =0 

NREC = 0 

OPEN(ICUNIT,FILE='ghsl.dat',STATUS='OLD',READONLY,ERR=14) 

READ(ICUNIT,HCDATA) 

REWIND ICUNIT 
READ(ICUNIT,SLRUN) 

REWIND ICUNIT 
READ(ICUNIT,SLDATA) 

CLOSE(ICUNIT) 

OPEN(ICUNIT, FILE='loadstab.dat',STATUS='OLD',READONLY,ERR=15) 
READ(ICUNIT,STABDAT) 

CLOSE(ICUNIT) 

XMOMI = XMOMTO - FWMX*FSCGTNK 

ZMOMI = TOW*ESWLCG - (204.75 + .09116*FWMX/FSWI)*FWMX 

W1 = TOW - FWMX + FWT 

FSCG = (XMOMI + FWT*FSCGTNK)/W1 

WLCG = (ZMOMI + (204.75 + .09116*FWT/FSWI)*FWT)/W1 
BLCG = ESBLCG 


C- position vector, HC c.g. to hook, HC bocy axes -C 

RlSAl(l) = (FSCG - FSHK)/12. 

R1SA1(2) = (-BLCG + BLHK)/12. 

R1SA1(3) = (WLCG - WLHK)/12. 

IF (CHFILE.NE.'sweep.dat') AXIS = 1 

IF (ILOAD.EQ.O) WRITE(TOUT,100) 

IF (ILOAD.EQ.l) THEN 
WRITE(TOUT,101) 

CABLES = ' ' 

END IF 

IF (ILOAD.EQ.2) THEN 
WRITE(TOUT,102) 

CABLES = 'S' 

END IF 

IF (ILOAD.NE.O) THEN 

WRITE(TOUT,103) LOADNAME, W2, I2XX, I2YY, I2ZZ, I2XZ, RA2P02, 
X R2P2S02, R2P2S2, (R2P J2 (1, J) , R2P J2 (2, J) , R2P J2 (3, J) , J=l, NC) 

WRITE(TOUT,104) TOW, Wl, FWT 
WRITE(TOUT,105) KS, CS, DT 
IF (STRETCH.EQ.0) WRITE(TOUT,106) CABLES 
IF (STRETCH.EQ.1) WRITE(TOUT,107) CABLES 
IF ((lAERSL.EQ.1).AND.(DOQ.EQ.0.)) WRITE (TOUT,108) 

IF (lAERSL.EQ.1) WRITE(TOUT,109) 

IF (lAERSL.EQ.2) WRITE(TOUT,110) 

IF (IWAKE.EQ.O) WRITE(TOUT,111) 

IF (IWAKE.EQ.l) THEN 

IF (ISWIRL.EQ.0) WRITE(TOUT,112) 

IF (ISWIRL.EQ.1) WRITE(TOUT,113) 

END IF 
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END IF 

IF (IPILOT.EQ.0) WRITE(lOUT,II4) 

IF (IPILOT.EQ.I) WRITE(TOUT,115) 

IF (CHFILE.EQ.'sweep.dat') THEN 
IF (AXIS.EQ.I) WRITE(lOUT,II6) 

IF (AXIS.EQ.2) WRITE(lOUT,II7) 

IF (AXIS.EQ.3) WRITE(lOUT,118) 

IF (AXIS.EQ.4) WRITE(lOUT,II9) 

END IF 
RETURN 

100 FORMAT(5X'NO LOAD SIMULATION') 

101 FORMAT(5X'SINGLE LOAD, SINGLE CABLE SIMULATION') 

102 FORMAT(5X'SINGLE LOAD, MULTI-CABLE SIMULATION') 

103 FORMAT(// 

X' LOAD CONFIGURATIO N'// 

XSX'LOAD DESCRIPTION : 'A// 

XSX'LOAD WEIGHT : 'F8.2// 

XSX'LOAD INERTIA XX : 'F8.2, 

X' LOAD INERTIA YY : 'F8.2,' LB-FT-S**2',/ 

XSX'LOAD INERTIA ZZ : 'F8.2, 

X' LOAD INERTIA XZ : 'F8.2,' LB-FT-S**2',// 

X5X'RA2P02 : '3F8.2/ 

X5X'R2P2S02 : '3F8.2/ 

X5X'R2P2S2 : '3F8.2// 

X5X'R2PJ2 : '/8(lOX,3F8.2/)) 

104 FORMAT(5X'T/0 WT, CURRENT WT, FUEL WT: '3FI0.2/) 

105 FORMAT(SX'KS, CS, DT : '3F8.2/) 

106 FORMAT(5X'INELASTIC CABLE',A) 

107 FORMAT(5X'ELASTIC CABLE',A) 

108 FORMAT(5X'NO AERODYNAMICS') 

109 FORMAT(5X'DRAG ONLY AERODYNAMICS') 
no FORMAT (SX'CONEX AERODYNAMICS') 

111 FORMAT(5X'WAKE MODEL NOT SELECTED') 

112 FORMAT(5X'AXIAL WAKE MODEL SELECTED') 

113 FORMAT(5X'3-D WAKE MODEL SELECTED') 

114 FORMAT(5X'INPUT CONTROL HISTORY AUTOPILOT DISENGAGED') 

115 FORMAT(5X'INPUT CONTROL HISTORY AUTOPILOT ENGAGED') 

116 FORMAT(5X'LATERAL AXIS COMPUTER GENERATED FREQUENCY SWEEP') 

117 FORMAT(5X'LONGITUDINAL AXIS COMPUTER GENERATED FREQUENCY SWEEP') 

118 FORMAT(5X'COLLECTIVE AXIS COMPUTER GENERATED FREQUENCY SWEEP') 

119 FORMAT(5X'DIRECTIONAL AXIS COMPUTER GENERATED FREQUENCY SWEEP') 

14 WRITE(6,I2) 

12 FORMAT('!!! ERROR OPENING INPUT FILE ghsl.dat !!!') 

STOP 

15 WRITE(6,I3) 

13 FORMAT('!!! ERROR OPENING INPUT FILE loadstab.dat !!!') 

STOP 

END 
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APPENDIX LNRT UNC3 OUT.F 


Output module for GenHel / Slung Load program. Writes formatted output to 
binary file for analysis. Load stability outputs were added. Program by Tyson, P. 
modified by Ehlers, G. 


C file genhel/batch/sl/nrt_unc3_out.f - 31 AUG 

98 Peter Tyson 

C small changes to output list jun 00 

C Writes formatted output to binary file for GenHel/Slung Load 

C simulation. Output file 'name.dat' is then read and reformatted 
C by ghsl_dat.f (runghsldat) to create 'name.out' (ASCII header file) 

C and 'name.xp' (UNC3 format XPLOT/CIFER file). 

C This subroutine is called by BHAWK_NRT_IO in the non-real-time 

C run of GenHel, version 6.0sl. NRESET true opens output files and 
C writes header information. NREC contains the number of records read 
C from the input file (done after first time through NRT_UNC3_OUT 
C and so is written to data file on second pass) 

SUBROUTINE NRT_UNC3_OUT(NRESET) 

INCLUDE 'slvars.cmn' 

COMMON /ISCASC/ ISCAS(50) 

EQUIVALENCE (ISCAS(6), NGAJFPS) 

EQUIVALENCE (A(I48), FNORTH), (A(I49), FE), (A(I50), FD) 

EQUIVALENCE (A(I64), TTL), (A(I65), TTM), (A(I66), TTN) 

EQUIVALENCE (FCS(67), XAT), (FCS(68), XBT), (FCS(69), XPT) 

CHARACTER*40 FN, FN2 
INTEGER FIRSTPASS 
DATA FIRSTPASS 70/ 

C- first pass after reset, open output file, do IC writes set 

firstpass = 1 and return -C 

C- second pass write NREC, set firstpass = 0, and write record 

C- write record each cycle thereafter 

IF (NRESET .NE. 0) THEN 
NRESET = 0 
FIRSTPASS = I 
NLAST = LASTCHR(DATAFILE) 

FN = DATAFILE(I:NLAST)//".dat" 

OPEN(I,FILE=FN,FORM='UNFORMATTED',STATUS='UNKNOWN') 

WRITE(I) NSTORE, DT, ILOAD, IWAKE, ISWIRL, IPILOT, IDATA, 

X NGAJFPS, TOW, FWT, WI, IIXX, IIYY, IIZZ, IIXZ, AXIS, RISN, 

X PHIDEG, THIDEG, PSIDEG, (A(J),J=64,66), PSVA, FAII, MAII, 

X XAAD, XBAD, XCAD, XPAD 

WRITE(I) CHFILE 
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no 


C 


load ic write 

IF (ILOAD.EQ.O) WRITE(6,17) FN 

C slsc ic 

write 


X 

X 

X 


C 

write 


X 

X 

X 

X 

X 

X 


IF (ILOAD.EQ.l) THEN 
WRITE(6,18) FN 

WRITE (1) LOADNAME, W2, I2XX, I2YY, I2ZZ, I2XZ, RlSAl, 
R2S12, DOQ, STRETCH, LCD, LC, KS, CS, QO, VlSl, 

FAIN, FA2N, PH2*R2D, TH2*R2D, PS2*R2D, PHC, THC, Q(12), 
(U(j),j=l,12) 

END IF 

slmc ic 

IF (ILOAD.EQ.2) THEN 
WRITE(6,19) FN 

WRITE(1) LOADNAME, W2, I2XX, I2YY, I2ZZ, I2XZ, STRETCH, 
lAERSL, NC, R2SJ2, RA2P02, R2P2S02, R2P2S2, KS, CS, 
RlSAl, R2PJ2, DOQ, GAM*RTD, PSVA*RTD, ALF2D, BET2D, 
DETG, LCJO, LCJ, TAUJ, FAIN, FCll, FCIN, MCll, FA22, 
FA2N, MA22, (A(J),J=64,66), PH2*R2D, TH2*R2D, PS2*R2D, 
RA2S2, VA2SN, R1S2SN, DYNAMIC,OM22, DV2SN, KSWRL, 

KDYN,KR2,KPS2 

END IF 


C 


wake ic 


write 

IF ((ILOAD.NE.O).AND.(IWAKE.EQ.l)) THEN 
FN2 = DATAFILE(1:NLAST)//".da2" 

OPEN(3,FILE=FN2,FORM='UNFORMATTED',STATUS='UNKNOWN') 
WRITE(3) NSTORE 
WRITE (6,20) FN2 
END IF 
RETURN 
END IF 


C- write number of input data points on second pass only -C 

C set NREC = LLLOAD(12). Mystery - sometimes the code doesn't 
equivalence nrec to lload(12) 

C as specified in slvars.cmn Unpredictable occurrence. 

IF (FIRSTPASS.NE.O) THEN 
NREC = LLOAD(12) 

WRITE(1) NREC 
FIRSTPASS = 0 
END IF 

write data each time called -C 

no load 

IF (ILOAD.EQ.O) WRITE(l) T, (A(j) , j = 88, 90) , (A(j),j=55,57), 

X (A(j),j=64,66), (A(j),j=37,39), (A(j),j=4,9), 

X A(106), A(107), A(176), FAll, MAll, XAAD, XBAD, XCAD, XPAD, 
X RSAS, PSAS, YSAS, DMIXA, DMIXB, DMIXC, DMIXP, PSFWD, PSAFT, 
X PSLAT, PSTR 

slsc 

IF (ILOAD.EQ.l) WRITE(l) T, DU, TAU, U, (DQ(I),1=4,11), Q, 

X R2SN, V2SN, DV2SN, RSN, VSN, DELRSN, DELVSN, DELDVSN, SSFN, 
X ISSFN, IISSFN, FAll, FAIN, FA2N, MAll, MA22, QMCC, LCMLCQ, 
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c— 
c 



X 

X 

X 

c 

list 


RHK2S1, FCll, MCll, XAAD, XBAD, XCAD, XPAD, PHCH, THCH, 

RPHC, RTHC, RSAS, PSAS, YSAS, DMIXA, DMIXB, DMIXC, DMIXP, 
PSFWD, PSAFT, PSLAT, PSTR 

slmc, long 


MAll 


C 

list 


IF ((ILOAD.EQ.2).AND.(IDATA.EQ.l)) WRITE(1) T, DU, U, 

X (DQ(I),1=4,9), Q, P2P, Q2P, FCll, FCIN, MCll, FAll, FAIN, 

X FA22, FA2N, MA22, FA2W, MA2W, V2SN, VA2S2, RA2S1, R1S2SN, 

X XAAD, XBAD, XCAD, XPAD, RSAS, PSAS, YSAS, DMIXA, DMIXB, DMIXC, 

X DMIXP, PSFWD, PSAFT, PSLAT, PSTR, float(QUAD), ALF2D, BET2D, 

X DALF2D, DBET2D, DANG2D, P21, Q21, R21, P2N, Q2N, R2N,test, 

X DELXAAD,DELXBAD,DELXPAD,DELXCAD,CAD_SAVE,AMGS2,DVISI, 

X FIV, F2V, F3V, FIH, F2H, F3H, SPEED 

slmc, short 


IF((ILOAD.EQ.2).AND.(IDATA.EQ.O)) WRITE(1) T, (U(I),1=4,6), 

X XAAD, XBAD, XCAD, XPAD, P2P, Q2P, RSAS, PSAS, YSAS, DMIXA, 
X DMIXB, DMIXC, DMIXP,DELXAAD,DELXBAD,DELXPAD,DELXCAD 


RETURN 
15 FORMAT(/) 

17 FORMAT(/Sx'WRITING NO-LOAD HEADER TO '16A) 

18 FORMAT(/Sx'WRITING SL SINGLE CABLE HEADER TO '16A) 

19 FORMAT(/Sx'WRITING SL MULTI-CABLE HEADER TO '16A) 

20 FORMAT(/Sx'WRITING WAKE INFORMATION TO '16A) 

END 
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APPENDIX M GHSLDAT 


Data input module for GenHel / Slung Load simulation. Yaw degree of freedom 
eorreetion parameters were added. Program by Tyson, P. modified by Ehlers, G. 


C file /genhel/batch/ghsl.dat - 31 AUG 

98 Peter Tyson 

C Yaw DOF Corrections by George Ehlers July 01 

C Data input for GenHel/Slung Load simulation, read by GHSL_INIT. 

C To change case, comment &SLDATA line for all cases except desired. 
&HCDATA 

TOW = 14689.0, 

XMOMTO = 5307900.0, 

FWT = 2000.0, 

FWMX = 2360.0, 

AIRSPEED = 60, 

&END 

&SLRUN 

DATAFILE ='junk' 

CHFILE ='fltl69.18ghch' 

AXIS = 1, 

DYNAMIC = 0, 

STRETCH = 1, 

lAERSL = 4, 

ILOAD = 2, 

IPILOT = 1, 

IWAKE = 0, 

ISWIRL = 0, 

IDATA = 1, 

STABSYST = 1, 

&END 

C CHFILE = '/ctr/cicolani/fltl72.12ch' , 

C AIRSPEED = 0.0, 

C Helicopter Data: 

C TOW Take Off Weight 

C XMOMTO X- Moment Arm based on takeoff weight (with full fuel 

load) 

C FWT Fuel Weight at time of maneuver to be simulated 

C FWMX Maximum Fuel weight at takeoff 

C Run Options: 

c DATAFILE filename for output file fn.dat (fn.out, fn.xp are 
generated by ghsl_dat.f) 

c CHFILE filename for control history inputs, binary files read in 

nrt_unc3_in.f 
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can be sweep.dat from makesweep or fltxxx_yy.dat flight 
control histories 

C AXIS (1) Lat (2) Long (3) Coll (4) Dir (only req'd for 

sweep.dat) 

C STRETCH (0) inelastic cables (1) elastic cables 

C lAERSL (1) drag only (2) CONEX static aero (PT/techdat3), (3) 

conex4 (LC/techdat4) 

C ILOAD (0) no-load (1) SLSC (IK Plate load) (2) SLMC 

C IPILOT (0) no feedback into control inputs (1) feedback 

included 

C IWAKE (0) no wake model (1) wake model incorporated 

C ISWIRL (0) no swirl in wake (1) swirl in wake (tangential 

velocity) 

C IDATA (0) minimum data for CIFER analysis (1) full data output 

C UH60 flight test case (ballasted CONEX with instrumentation and 
C standard 4-cable sling). LIFT PT coords revised 14feb97, 

C Inertia and coords adjusted 13may97, 14jul98. 

C Lift points, r2pj2, are set away from edge of conex a little. 

C R2SS2 = load-cg-to-accelerometer vector. use zero if no load 
accelerometers 

&SLDATA 


LOADNAME 

= 

'4K CONEX (BALLASTED) WITH INST PKG 

W2 

= 

4105.0, 


I2XX 

= 

1876.0, 


I2YY 

= 

1482.2, 


I2ZZ 

= 

1376.0, 


I2XZ 

= 

o 

o 


KS 

= 

9645.0, 


CS 

= 

22.0, 


RA2P02 

= 

o 

o 

o 

o 

18.3036, 

R2P2S02 

= 

o 

o 

o 

o 

1.38, 

R2P2S2 

= 

o 

o 

o 

o 

1.38, 

NC 

= 

4, 


R2PJ2 

= 

2.8073, -4 

.0626, -3.2032, 



2.8073, 4 

.0626, -3.2032, 



-2.8073, -4 

.0626, -3.2032, 



-2.8073, 4 

.0626, -3.2032, 12*0, 

DOQ 

= 

0, 


DELPS20 

= 

-45, 


R20D 

= 

100, 


R2SS2 

= 

1.031, .575 

, -.899, 

KSWRL 

= 

40 


KR2 

= 

1.5 


KDYN 

= 

.3 



&END 

C empty CONEX load, including instrumentation. 
C&SLDATA 

LOADNAME = '2K CONEX (UNBALLASTED) WITH INST PKG 
W2 = 1794.0, 

I2XX = 785.3, 

I2YY = 590.7, 

I2ZZ = 766.0, 

I2XZ = 0.0, 
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KS = 9645.0, 

CS = 22.0, 


RA2P02 

o 

o 

o 

II 

0, 18.3036, 


R2P2S02 

o 

o 

o 

II 

0, 1.38, 


R2P2S2 

o 

o 

o 

II 

0, 1.38, 


NC 

4 



R2PJ2 

2.8073, 

-4.0626, - 

3.2032 


2.8073, 

4.0626, - 

3.2032 


-2.8073, 

—4.0626, - 

3.2032 


-2.8073, 

4.0626, - 

3.2032 

DOQ 

= 50.0, 



R20D 

= 0 




&END 


12 * 0 , 


R2SS2 = .891, .575, .276, 


C 41541b 35.5 x 35.5 x 14.625 in steel block UH60 97 fit test load - 
1997 tests. 

C Adjusted 14jul98. 

C Lift point coords, r2pj2, are set away from edge of block a little. 
C ra2po2 changed from 0,0,18.14863 to 0,0,16.4391, 20 jul 98 pht 


C&SLDATA 


LOADNAME 

= 

'4K STEEL BLOCK (no instrumentation)', 

W2 

= 

4154.0, 


I2XX 

= 

109.6, 


I2YY 

= 

109.6, 


I2ZZ 

= 

187.1, 


I2XZ 

= 

0.0, 


KS 

= 

9645.0, 


CS 

= 

22.0, 


RA2P02 

= 

0.0, 0.0, 

16.4391, 

R2P2S02 

= 

0.0, 0.0, 

0.0, 

R2P2S2 

= 

0.0, 0.0, 

0.0, 

NC 

= 

4 


R2PJ2 

= 

1.32, -1. 

32, -0.61, 



1.32, 1. 

32, -0.61, 



-1.32, -1. 

32, -0.61, 



-1.32, 1. 

32, -0.61, 12*0, 

DOQ 

= 

10.0, 


R2SS2 

= 

0, 0, 0, 



&END 


C 4K steel block load - 1999 flight tests, including instrumentation 
C&SLDATA 


LOADNAME 

= 

' 4K STEEL BLOCK', 

W2 

= 

3895.0, 

I2XX 

= 

103.7, 

I2YY 

= 

104.6, 

I2ZZ 

= 

174.3 

I2XZ 

= 

o 

o 

KS 

= 

9645.0, 

CS 

= 

22.0, 

RA2P02 

= 

0.0, 0.0, 16.4086, 

R2P2S02 

= 

o 

o 

o 

o 

o 

o 

R2P2S2 

= 

o 

o 

o 

o 

o 

o 

NC 

= 

4 
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R2PJ2 


1.27, -1.27, -0.61, 

1.27, 1.27, -0.61, 

-1.27, -1.27, -0.61, 

-1.27, 1.27, -0.61, 12*0, 

DOQ = 10.0, 

R2SS2 = .787, .244, -.688, 

SEND 


C 63841b steel block, weighed 28 jul 98 on the S/R (Bldg 255) lOK 
pallet 

C scale. Some water was in the block (leaked out when lifted) 

C unknown what total water capacity is... 

C Parameters calculated 15 jul 98, recalc 28 jul 98 
c&SLDATA 


LOADNAME 

= 

'6K STEEL BLOCK 

W2 

= 

6384.0, 

I2XX 

= 

308.4, 

I2YY 

= 

296.2, 

I2ZZ 

= 

470.7, 

I2XZ 

= 

o 

o 

KS 

= 

9645.0, 

CS 

= 

22.0, 

RA2P02 

= 

0.0, 0.0, 16.4741, 

R2P2S02 

= 

0.0, -0.118 -0.179, 

R2P2S2 

= 

0.0, -0.118 -0.179, 

NC 

= 

4, 

R2PJ2 

= 

1.8333, -1.8333, -0.6792 



1.8333, 1.8333, -0.6792 



-1.8333, -1.8333, -0.6792 



-1.8333, 1.8333, -0.6792 

DOQ 

= 

o 

o 

R2SS2 

= 

o 

o 

o 


&END 


C 11301b steel plate, use with ILOAD = 1 (SLSC) option 
c&SLDATA 


LOADNAME 

= 

'IK STEEL PLATE 

W2 

= 

1130.0, 

I2XX 

= 

9.1, 

I2YY 

= 

119.3, 

I2ZZ 

= 

128.1, 

I2XZ 

= 

o 

o 

KS 

= 

4172.3, 

CS 

= 

o 

o 

LCO 

= 

22.7083, 

R2S12 

= 

o 

o 

o 

o 

1 

CO 

CO 

DOQ 

= 

o 

o 

t — 1 

R2SS2 

= 

o 

o 

o 


&END 

C (DOQ normally 10.0) 
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APPENDIX N GHSL DAT.F 


Writes binary data file into unc3 format for plotting. Load stabilization data was 
added. Program by Tyson, P. modified by Ehlers, G. 


C file /u2/harrier/tyson/GenHel/batch/ghsl_dat.f - 

31 AUG 98, Peter Tyson 

C Data print and plot storage file for GenHel/Slung Load simulation. 

C Parameters nchanx = number of variables stored in dat array for (1) 
no-load, (2) slsc, and (3) slmc cases. 

C ILOAD = (0,1,2) -> (no load, slsc, slmc) variable list. IDATA = 
(0,1) -> short,long list for slmc. 

PROGRAM GHSL_DAT 

PARAMETER(NCHANl = 43) 

PARAMETER(NCHAN2 = 126) 

PARAMETER(NCHAN3 = 137) 

PARAMETER(NCHAN4 = 21) 

PARAMETER(NCHANW = 53) 

PARAMETER(NCHANX = 21) 

REAL FA11(3), FA1N(3), MA11(3), ECU (3), FC1N(3), MC11(3), 

X FA22(3), FA2N(3), MA22(3), FC22(3), FC2N(3), MC22(3), 

X R1SN(3), V1SN(3), R1SA1(3), VA2SN(3), R2SJ2(24), RA2S2(3), 

X RA2P02(3), 

X R2P2S02(3), R2P2S2(3), R2PJ2(3,8), R2S12(3), V1S1(3), 

X QO(12), Q(12), U(12), LCO, LG, KS, IIXX, IlYY, IIZZ, IIXZ, 

X I2XX, I2YY, I2ZZ, I2XZ, C(4), TAUJ(8), LCJ(8), LCJO(8), 

X DHOOK, HHOOK, DATl(NCHANl), DAT2(NCHAN2), DAT3(NCHAN3) , 

X DAT4(NCHAN4), DATW(NCHANW), DATX(NCHANX), DALF2D, DBET2D, 

X DANG2D, ALF2D, BET2D, R1S2SN(3), DYNAMIC, P21, Q21, R21, 

X AMGS2 (3) , OM22 (3) , DV2SN (3) , 

X KSWRL,KDYN,KR2,KPS2,KTSTFPS 

REAL*8 TIME, DAT81(NCHANl), DAT82(NCHAN2), DAT83(NCHAN3+1), 

X DAT84(NCHAN4), DAT8W(NCHANW), DAT8X(NCHANX) 

INTEGER STRETCH, JRTD1(12), JRTD2(31), JRTD3(32), JRTD4(5), 

X NREC, AXIS 

INTEGER*! UNIT 
LOGICAL*! openW, L 

CHARACTER NAME*30, FIN*30, 

X SN2(NCHAN2)*16, 

X SNW(NCHANW)*16, 

X CHFILE*40 

DATA UNIT/3/, 

X RTD, G, KTSTFPS/57.2957795, 32.174, I.687810/, 


FOUT*30, FXP*30, SNI(NCHANl)*16, 

SN3(NCHAN3+I)*16, SN4(NCHAN4)*16, 

SNX(NCHANX)*16, LOADNAME*40, CABLES, 
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X 

JRTDl/5,6 

,7, 

11,12,13,14,15,16,17, 

18,19/, 




X 

JRTD2/5,6 

,7, 

8,9,10,18, 

, 19,20,21,22 

r 

23,27,28,29,30,31,32, 



X 

33, 

34, 

38,39, 40, 41, 42, 43, 44, 

45, 95, 96, 97/, 



X 

JRTD3/5,6 

,7, 

8,9,10,17, 

, 18,19,20,21 

r 

22,26, 27,28,29, 30, 31, 



X 

35, 

36, 

37,38,39, 40, 44, 45, 112 

t 

113,114, 1 

.15, 116, 11 

7/, 

c 

NO L( 

X 

JRTD4/2,3 

,4, 

9, 10/ 






5AD 

i SIGNAL LIST 








DATA SNl/ 









X 

' T1 ' 

r 

'dvlsnx' 

, 'dvlsny' 

t 

'dvlsnz' 

, 'dpi' 

t 


X 

'dql ' 

r 

'drl ' 

, 'vlsnx' 

t 

' vlsny' 

, 'vlsnz' 

t 


X 

'pi ' 

r 

'ql ' 

, ' rl' 

t 

'phi' 

, ' thl' 

t 


X 

' psl ' 

r 

'dphl' 

, 'dthl' 

t 

'dp s1' 

, 'rlsnx' 

t 


X 

'rlsny' 

r 

' rlsnz ' 

,'fallx' 

t 

'fally' 

,'fallz' 

t 


X 

'LAI ' 

r 

'MAI ' 

, 'NAl' 

t 

' da' 

, ' db' 

t 


X 

' dc ' 

r 

' dp ' 

, 'RSAS ' 

t 

'PSAS' 

,'YSAS' 

t 


X 

'DMIXA' 

r 

'DMIXB' 

, 'DMIXC 

t 

'DMIXP' 

,'PSFWD' 

t 

C 

SLSC 

X 

'PSAFT' 

r 

'PSLAT' 

, 'PSTR' 

/ 




SIGNAL LIST 









DATA SN2/ 









X 

! 'p ! 

r 

'dvlsnx' 

,'dvlsny' 

t 

'dvlsnz' 

,'dpi' 

t 


X 

'dql ' 

r 

'drl ' 

, ' dp2 ' 

t 

' dq2 ' 

,'dr2' 

t 


X 

'dvalcx' 

r 

'dvalcy' 

, ' ddlc' 

t 

'tau/wl' 

, 'vlsnx' 

t 


X 

'vlsny' 

r 

' vlsnz ' 

, 'pi' 

t 

'ql' 

, ' rl' 

t 


X 

'p2 ' 

r 

'q2 ' 

, ' r2 ' 

t 

'valex' 

, 'valey' 

t 


X 

'die' 

r 

'dphl' 

, 'dthl' 

t 

'dp s1' 

, 'dph2' 

t 


X 

'dth2' 

r 

'dp s 2 ' 

, ' dphe' 

t 

' dthe' 

, 'rlsnx' 

t 


X 

'rlsny' 

r 

' rlsnz ' 

, 'phi' 

t 

' thl' 

, 'psl' 

t 


X 

'ph2 ' 

r 

'th2 ' 

, 'ps2 ' 

t 

' phe' 

, ' the' 

t 


X 

' Ic ' 

r 

'r2snx' 

, 'r2sny' 

t 

' r2snz ' 

, 'v2snx' 

t 


X 

'v2snx' 

r 

'v2snz ' 

, 'dv2snx' 

t 

'dv2sny' 

, 'dv2snz' 

t 


X 

'rsnx' 

r 

'rsny' 

, ' rsnz ' 

t 

' vsnx' 

, 'vsny' 

t 


X 

'vsnz' 

r 

'delrsx' 

, 'delrsy' 

t 

'delrsz ' 

, 'delvsx' 

t 


X 

'delvsy' 

r 

'delvsz' 

, 'dldvsx' 

t 

'dldvsy' 

, 'dldvsz' 

t 


X 

'ssfnx' 

r 

'ssfny' 

, ' ssfnz' 

t 

'issfnx' 

, ' issfny' 

t 


X 

'issfnz' 

r 

'iissfX' 

, ' iissfy' 

t 

'iissfz' 

,'fallx' 

t 


X 

'fally' 

r 

'fallz ' 

,'falnx' 

t 

' f alny' 

,'falnz' 

t 


X 

'fa2nx' 

r 

'fa2ny' 

,'fa2nz' 

t 

'mallx' 

,'mally' 

t 


X 

'mallz' 

r 

'ma22x' 

,'ma22y' 

t 

'ma22z ' 

, 'pe' 

t 


X 

' qc ' 

r 

' rc ' 

,'Icmlco' 

t 

'rhk2slx' 

,'rhk2sly' 

t 


X 

'rhk2slz 

! 

t 

'fcllx' 

,'felly' 

t 

' fellz ' 

,'LCl' 

t 


X 

'MCI ' 

r 

'NCI ' 

, ' da' 

t 

' db' 

, ' de' 

t 


X 

' dp ' 

r 

'phch' 

, ' theh' 

t 

'rphe' 

, ' rthe' 

t 


X 

'RSAS' 

r 

'PSAS ' 

, 'YSAS' 

t 

'DMIXA' 

,'DMIXB' 

t 


X 

'DMIXC' 

r 

'DMIXP' 

,'PSFWD' 

t 

'PSAFT' 

,'PSLAT' 

t 

C 

SLMC 

X 

'PSTR' 

/ 







: LONG LIST 
DATA SN3/ 










X 

' T1 ' 

r 

'dvlsnx' 

,'dvlsny' 

t 

'dvlsnz ' 

,'dpi' 

t 


X 

'dql ' 

r 

'drl ' 

, ' dp2 ' 

t 

' dq2 ' 

,'dr2' 

t 


X 

'ddra2s2x', 

'ddra2s2y 

', 'ddra2s2z' 

t 

' vlsnx' 

,'vlsny' 

t 


X 

'vlsnz' 

r 

'pi ' 

, 'ql ' 

t 

' rl' 

, 'p2 ' 

t 


X 

'q2 ' 

r 

' r2 ' 

, 'dra2s2x' 

t 

'dra2s2y' 

, 'dra2s2z ' 

t 


X 

'dphl' 

r 

'dthl' 

, ' dp s1' 

t 

'dph2 ' 

,'dth2' 

t 


X 

'dp s 2 ' 

r 

'rlsnx' 

,'rlsny' 

t 

' rlsnz ' 

,'phi' 

t 
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X 

'thl ' 

r 

'psl' 

, 'ph2 ' 

, ' th2 ' 

, 'ps2 ' 

t 

X 

' ra2s2x' 

r 

' ra2s2y' 

, 'ra2s2z ' 

,'p2p' 

,'q2p' 

t 

X 

' fcllx' 

r 

' felly' 

, 'fcllz ' 

,'fclnx' 

,'fclny' 

t 

X 

' f clnz ' 

r 

'LCl ' 

, 'MCI' 

, 'NCI' 

,'fallx' 

t 

X 

' fally' 

r 

' fallz' 

,'falnx' 

,'falny' 

,'falnz' 

t 

X 

'LAI ' 

r 

'MAI ' 

, 'NAl' 

,'fa22x' 

,'fa22y' 

t 

X 

' fa22z' 

r 

' fa2nx' 

,'fa2ny' 

, 'fa2nz' 

, 'LA2' 

t 

X 

'MA2 ' 

r 

'NA2 ' 

, 'fa2wx' 

, 'fa2wy' 

, 'fa2wz' 

t 

X 

'LA2W' 

r 

'MA2W' 

, 'NA2W' 

, 'v2snx' 

, 'v2sny' 

t 

X 

'v2snz' 

r 

' va2s2x' 

, 'va2s2y' 

, 'va2s2z ' 

, 'ra2slx' 

t 

X 

' ra2sly' 

r 

' ra2slz' 

, 'rls2snx' 

, 'rls2sny' 

, 'rls2snz ' 

t 

X 

'da' 

r 

'db' 

, ' dc' 

, 'dp' 

, 'RSAS ' 

t 

X 

'PSAS' 

r 

' YSAS' 

, 'DMIXA' 

, 'DMIXB' 

, 'DMIXC 

t 

X 

'DMIXP' 

r 

'PSFWD' 

, 'PSAFT' 

, 'PSLAT' 

, 'PSTR' 

t 

X 

'quad' 

r 

' alf2d' 

,'bet2d' 

,'dalf2d' 

,'dbet2d' 

t 

X 

'dang2d' 

r 

'p21 ' 

,'q21' 

, 'r21' 

, 'p2n' 

t 

X 

'q2n' 

r 

' r2n ' 

t 




X 

'delxaad' 

r 

' delxbad' 

, ' delxpad' 

,'delxcad' 

, 'xaad_sav' 

\ 

t 

X 

'xbad_sav' 

r 

' xpad_sav' 

, 'xcad_sav' 

,'AMGS2X' 

,'AMGS2Y' 

t 

X 

'AMGS2Z' 

r 

' dvlslx' 

,'dvlsly' 

,'dvlslz' 

t 


X 

' fxv' 

r 

' fyv' 

,'fzv' 

t 



X 

' fxh' 

r 

' fyh' 

,'fzh' 

, ' speed'/ 




SLMC: SHORT LIST 
DATA SN4/ 

X 'Tl' ,'pi' ,'ql' ,'rl' ,'da' 

X 'db' ,'dc' ,'dp' ,'p2p' ,'q2p' 

X 'RSAS' ,'PSAS' ,'YSAS' ,'DMIXA' ,'DMIXB' 

X 'DMIXC ,'DMIXP' 

X 'delxaad' ,'delxbad' ,'delxpad' ,'delxcad'/ 

C 

WAKE: LONG LIST 
DATA SNW/ 


X 

f -p f 

, 'alf' 

,'blf' 

, ' vlx' 

, 'vly' 

t 

X 

' viz ' 

, ' VO ' 

,'volx' 

, ' voly' 

, ' volz ' 

t 

X 

'vpplx' 

, 'vpply' 

,'vpplz' 

,'vppnx' 

,'vppny' 

t 

X 

'vppnz' 

, 'vpp' 

, 'vp1X' 

,'vply' 

, 'vp1z ' 

t 

X 

'vpnx' 

, ' vpny' 

,'vpnz' 

, 'vp' 

,'phiw' 

t 

X 

'thew' 

, ' xcw' 

,'yew' 

,'rh2swx' 

,'rh2swy' 

t 

X 

'rh2swz' 

, 'rh2swox' 

,'rh2swoy' 

, 'rh2swoz ' 

, ' thetap ' 

t 

X 

' radius ' 

, ' rad' 

, 'height' 

, ' vwz ' 

,'vwt' 

t 

X 

' pst ' 

, ' vwwx' 

,' vwwy ' 

, ' vwwz ' 

,' vw2x ' 

t 

X 

'vw2y ' 

, ' vw2 z ' 

,' va2s2wx ' 

,' va2s2wy ' 

,' va2s2wz ' 

t 

X 

' va2s2x ' 

, ' va2s2y ' 

, ' va2s2z ' 

/ 




WAKE: SHORT LIST 
DATA SNX/ 


X 

! p ! 

f 

' alf 

, 'blf 

, Wo ’ 

,'vpp' 

X 

' vp ' 

r 

' phiw' 

, ' thew' 

, ' xcw ' 

,'yew' 

X 

' rh2swox' 

r 

' rh2swoy' 

,'rh2swoz' 

, ’thetap’ 

,'radius' , 

X 

'height' 

r 

' vwz ' 

, 'pst' 

,’va2s2wx’ 

,'va2s2wy' , 

X 

'va2s2wz' 

/ 






10 TYPE *, 'Enter name of input file name.dat' 
READ(5,11,ERR=10) NAME 
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NLAST = LASTCHR(NAME) 

FIN = NAME(1:nlast)//".dat" 
FONT = NAME(1:nlast)//".out" 
FXP = NAME(1:nlast)//".xp" 
WRITE(6,11) FIN 
11 FORMAT(A) 


OPEN(1,FILE=FIN,FORM='unformatted',STATUS='old') 

READ(l) NS, DT, ILOAD, IWAKE, ISWIRL, IPILOT, IDATA, NGAJFPS, 

X TOW, FWT, Wl, IIXX, IlYY, IIZZ, IIXZ, AXIS, RISN, 

X PHIDEG, THIDEG, PSIDEG, VISN, PSVA, FAll, MAll, C 
READ(l) CHFILE 

OPEN(2,FILE=FOUT,FORM='formatted',STATUS='unknown') 

WRITE(2,151) FONT 

IF (ILOAD.EQ.O) L = openW(UNIT,FXP,NCHANl,SNl,'unc3') 

IF (ILOAD.EQ.l) L = openW(UNIT,FXP,NCHAN2,SN2,'unc3') 

IF ((ILOAD.EQ.2).AND.(IDATA.EQ.l)) 

X L = openW(UNIT,FXP,NCHAN3 + 1,SN3, 'unc3 ' ) 

IF ((ILOAD.EQ.2).AND.(IDATA.EQ.O)) 

X L = openW(UNIT,FXP,NCHAN4,SN4,'unc3') 

IF (.NOT.L) STOP'openW' 

IF (ILOAD.EQ.l) THEN 

READ(l) LOADNAME, W2, I2XX, I2YY, 

X DOQ, STRETCH, LCQ, LC, KS, CS, 

X RISN, PH2, TH2, PS2, PHC, THC, 

CABLES = ' ' 

WRITE(2,101) 

END IF 

IF (ILOAD.EQ.2) THEN 

READ(l) LOADNAME, W2, I2XX, I2YY, I2ZZ, I2XZ, STRETCH, 

X lAERSL, NC, R2SJ2, RA2P02, R2P2S02, R2P2S2, KS, CS, 

X RlSAl, R2PJ2, DOQ, GAMA, PSVA, ALF2D, BET2D, DETG, LCJQ, 

X LCJ, TAUJ, FAIN, FCll, FCIN, MCll, FA22, FA2N, MA22, VISN, 

X PH2DEG, TH2DEG, PS2DEG, RA2S2, VA2SN, R1S2SN, DYNAMIC, 

X OM22,DV2SN,KSWRL,KDYN,KR2,KPS2 

CABLES = 'S' 

WRITE(2,102) 

END IF 

READ(1) NREC 
RUNTIME = NREC * DT 

IF (CHFILE.EQ.'sweep.dat') THEN 
IF (AXIS.EQ.l) THEN 
WRITE(2,103) 

ELSE IF (AXIS.EQ.2) THEN 
WRITE(2,104) 

ELSE IF (AXIS.EQ.3) THEN 
WRITE(2,105) 

ELSE 

WRITE(2,106) 


I2ZZ, I2XZ, RlSAl, R2S12, 
QQ, VlSl, FAIN, FA2N, 

LC, (U(j),j=l,12) 
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END IF 
ELSE 

WRITE(2,107) CHFILE 
END IF 

IF (ILOAD.EQ.O) WRITE(2,100) 

WRITE(2,152) NREC, DT, IIXX, IlYY, IIZZ, IIXZ 
WRITE(2,114) TOW, FWT, W1 

IF (ILOAD.EQ.O) THEN 

WRITE(2,153) RISN, PHIDEG, THIDEG, PSIDEG, VISN, PSVA, 

X FAll, MAll, C 

ELSE 

WRITE(2,115) W1+W2 

WRITE(2,112) LOADNAME, W2, I2XX, I2YY, I2ZZ, I2XZ 
IF (ILOAD.EQ.2) WRITE(2,113) RA2P02, R2P2S02, R2P2S2, 

X (R2PJ2(1, J),R2PJ2(2,J),R2PJ2(3,J),J=1,NC),R1S2SN 

IF (STRETCH.EQ.0) WRITE(2,116) CABLES 
IF (STRETCH.EQ.1) WRITE(2,117) CABLES 

IF ((lAERSL.EQ.O).OR.((lAERSL.EQ.l).AND.(DOQ.EQ.O.))) THEN 
WRITE(2,118) 

ELSE 

IF (lAERSL.EQ.l) WRITE(2,119) 

IF (IAERSL.EQ.2) WRITE(2,120) DYNAMIC 
IF (lAERSL.EQ.3) WRITE(2,1201) 

IF (lAERSL.EQ.4) WRITE(2,1202) 

IF (IWAKE.EQ.O) WRITE(2,121) 

IF (IWAKE.EQ.l) THEN 

IF (ISWIRL.EQ.0) WRITE(2,122) 

IF (ISWIRL.EQ.1) WRITE(2,123) 

END IF 
END IF 

END IF 

IF (NGAJFPS.EQ.O) WRITE(2,124) 

IF (NGAJFPS.EQ.1) WRITE(2,125) 

IF (IPILOT.EQ.0) WRITE(2,126) 

IF (IPILOT.EQ.1) WRITE(2,127) 

IF (ILOAD.EQ.l) THEN 

WRITE(2,201) RlSAl, R2S12, LOO 
IF (STRETCH.EQ.1) WRITE(2,202) KS, CS 

WRITE(2,203) RISN, PHIDEG, THIDEG, PSIDEG, PH2, TH2, PS2, 

X PHC, THC, LC, VIST, FAIN, FA2N, MAll, (Q(j),U(j),j=l,12) 

END IF 

IF (ILOAD.EQ.2) THEN 
WRITE(2,301) RlSAl 

IF (STRETCH.NE.0) WRITE(2,302) KS, CS, NC, DETG, 

X (TAUJ(j),LCJ(j),LCJO(j),j=l,NC) 

WRITE(2,303) KSWRL,KDYN,KR2,KPS2 

THT = ATAN(SQRT(FA2N(1)**2+FA2N(2)**2)/(W2+FA2N(3)))*RTD 
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R1SN(3) = -R1SN(3) 

WRITE(2,305) RISN,VISN,PHIDEG,THIDEG,PSIDEG,PH2DEG,TH2DEG, 

X PS2DEG,OM22,DV2SN,RA2S2,VA2SN,FAl1,FAIN,MAI1,FCl1,FCIN,MCI1, 

X FA22,FA2N,MA22,ALF2D,BET2D, THT, C 

END IF 

CLOSE (2) 

C SECTION 500. STORE XPLOT FILE 

C read time histories. Convert angles to degrees, change signs of y,z 
position 

C coordinates for rlsn, r2sn, rsn. Note: DATSn, n = 1,..,4 arrays are 
double precision 

IF (ILOAD.EQ.O) THEN 
DO 511 i = 1,NREC-1 
READ(1,err=590) DATl 
TIME = DATl(1) 

DO 512 j = 1,12 
k = JRTDl(j) 

512 DATl(k) = DATl(k)*RTD 
DO 513 j = 1,NCHAN1 

513 DAT81(j) = DATl(j) 

511 CALL fWrite(UNIT, TIME, DAT81) 

CALL closeW(UNIT) 

WRITE(6,580) FOUT, RUNTIME, EXP 
STOP 

END IF 

IF (ILOAD.EQ.l) THEN 
DO 521 i = 1,NREC-1 
READ(1,err=590) DAT2 
TIME = DAT2(1) 

DAT2(14) = DAT2(14)/W1 
DO 522 j = 1,31 
k = JRTD2(j) 

522 DAT2(k) = DAT2(k)*RTD 

DO 523 k = 1,2 
DAT2(35+k) = - DAT2(35+k) 

DAT2(47+k) = - DAT2(47+k) 

523 DAT2(56+k) = - DAT2(56+k) 

DO 524 j = 1,NCHAN2 

524 DAT82(j) = DAT2(j) 

521 CALL fWrite(UNIT, TIME, DAT82) 

CALL closeW(UNIT) 

WRITE(6,580) FOUT, RUNTIME, EXP 

END IF 

IF ((ILOAD.EQ.2).AND.(IDATA.EQ.l)) THEN 
DO 531 i = 1,NREC-1 
READ(1,err=590) DAT3 
TIME = DAT3(1) 

DO 532 j = 1,32 
k = JRTD3(j) 

532 DAT3(k) = DAT3(k)*RTD 

DAT3(34) = - DAT3(34) 

C correct the load yaw angle to within +/- 180 deg for viewing in 
xplot 

C534 IF (DAT3(40).GT. 180.) DAT3(40) = DAT3(40) - 
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C IF (DAT3(40).LT.-180.) DAT3(40) = DAT3(40) + 360 

C IF (DAT3(40).GT. 180.) GO TO 534 

C IF (DAT3(40) .LT.-I80 . ) GO TO 534 

DO 533 j = I,NCHAN3 
533 DAT83(j) = DAT3(j) 

DAT83(NCHAN3+I) = 

X SORT(DAT3(14)**2+DAT3(15)**2+DAT3(16)**2)/KTSTFPS 

531 CALL fWrite(UNIT, TIME, DAT83) 

CALL closeW(UNIT) 

WRITE(6,580) FOUT, RUNTIME, FXP 
END IF 

IF ((ILOAD.EQ.2).AND.(IDATA.EQ.O)) THEN 
DO 561 i = I,NREC-I 
READ(I,err=590) DAT4 
TIME = DAT4(I) 

DO 562 j = 1,5 
k = JRTD4(j) 

562 DAT4(k) = DAT4(k)*RTD 
DO 563 j = I,NCHAN4 

563 DAT84(j) = DAT4(j) 

561 CALL fWrite(UNIT, TIME, DAT84) 

CALL closeW(UNIT) 

WRITE(6,580) FOUT, RUNTIME, FXP 
END IF 

599 CONTINUE 

IF (IWAKE.EQ.I) THEN 

FIN = NAME(I:nlast)//".da2" 

FXP = NAME(I:nlast)//".wake.xp" 

WRITE(6,II) FIN 

OPEN(4,FILE=FIN,FORM='unformatted',STATUS='old') 

C IDATA option removed for dynamic aero troubleshooting 

L = openW(UNIT,FXP,NCHANX,SNX,'unc3') 

IF (.NOT.L) STOP'openW' 

READ(4) junk 
DO 600 i = 1,NREC-1 

READ(4,err=592) DATX 
TIME = DATX(l) 

DO 651 j = 1,NCHANX 
651 DAT8X(j) = DATX(j) 

CALL fWrite(UNIT, TIME, DAT8X) 

600 CONTINUE 

CALL closeW(UNIT) 

WRITE(6,680) FXP 
END IF 
STOP 

151 FORMAT('DATA OUTPUT FILE ',16A//) 

100 FORMAT('NO LOAD SIMULATION') 

101 FORMAT('SINGLE LOAD, SINGLE CABLE SIMULATION') 

102 FORMAT('SINGLE LOAD, MULTI-CABLE SIMULATION') 

103 FORMAT('COMPUTER GENERATED LATERAL INPUT SWEEP'/) 

104 FORMAT('COMPUTER GENERATED LONGITUDINAL INPUT SWEEP'/) 

105 FORMAT('COMPUTER GENERATED DIRECTIONAL INPUT SWEEP'/) 

106 FORMAT('COMPUTER GENERATED COLLECTIVE INPUT SWEEP'/) 
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107 FORMAT('CONTROL INPUT FROM MOA//) 

112 FORMAT(5X'LOAD DESCRIPTION : 'A/ 

X SX'LOAD WEIGHT : 'F8.2,' LB'/ 

X SX'LOAD INERTIA XX : 'F8.2, 

X SX'LOAD INERTIA YY : 'F8.2,' LB-FT-S**2'/ 

X SX'LOAD INERTIA ZZ : 'F8.2, 

X SX'LOAD INERTIA XZ : 'F8.2,' LB-FT-S**2') 

IIS FORMAT(SX'RA2P02 : 'SF8.2/ 

X SX'R2P2S02 : 'SF8.2/ 

X SX'R2P2S2 : 'SF8.2/ 

X SX'R2PJ2 : '8(SF8.2/17X)/ 

X SX'R1S2SN : 'SF8.2) 

114 FORMAT(SX'HELICOPTER TAKEOFF WEIGHT : 'F10.2,' LB'/ 

X SX' FUEL WEIGHT : 'F10.2,' LB'/ 

X SX' CURRENT WEIGHT : 'F10.2,' LB'/) 

115 FORMAT(SX'TOTAL HELICOPTER AND LOAD : 'F10.2,' LB'/) 

116 FORMAT(SX'INELASTIC CABLE',A) 

117 FORMAT(SX'ELASTIC CABLE',A) 

118 FORMAT(SX'NO LOAD AERODYNAMICS') 

119 FORMAT(SX'DRAG ONLY AERODYNAMICS') 

120 FORMAT(SX'CONEX (techdatS) STATIC AERODYNAMICS'/ 

X SX' DYNAMIC AERODYNAMIC COEFFICIENT = ',F4.1/) 

1201 FORMAT(SX'CONEX4 (techdat4) STATIC AERODYNAMICS (|beta| < 90)'/) 

1202 FORMAT(SX'CONEX4A(techdat4) STATIC AERODYNAMICS ( | alfa| < 90)'/) 

121 FORMAT(SX'WAKE MODEL NOT SELECTED') 

122 FORMAT(SX'WAKE MODEL WITHOUT SWIRL SELECTED') 

12S FORMAT(SX'S-D WAKE MODEL SELECTED') 

124 FORMAT(SX'FLIGHT PATH STABILIZATION (FPS) DISENGAGED') 

125 FORMAT(SX'FLIGHT PATH STABILIZATION (FPS) ENGAGED') 

126 FORMAT(SX'INPUT CONTROL HISTORY AUTOPILOT DISENGAGED') 

127 FORMAT(SX'INPUT CONTROL HISTORY AUTOPILOT ENGAGED') 


152 FORMAT(SX'NREC, DT : 'I8,F10.2/ 

X SX'HC INERTIA XX : 'F8.2, 

X 3X'HC INERTIA YY : 'F8.2,' LB-FT-S**2 

X SX'HC INERTIA ZZ : 'F8.2, 

X 3X'HC INERTIA XZ : 'F8.2,' LB-FT-S**2 

153 FORMAT('TRIM'/ 

X SX'RISN (x,y,z) ', 3F10.1/ 

X SX'PHl, THl, PSl (DEG) ', 3F10.2/ 

X SX'VISN (x,y,z) ', 3F10.2/ 

X SX'PSVA ', 1F10.2/ 

X SX'FAll (x,y,z) ', 3F10.1/ 

X SX'MAll (l,m,n) ', 3F10.1/ 

X SX'XAAD, XBAD, XCAD, XPAD', 4F10.2/) 

201 FORMAT(SX'RISAI ' 3fl0.2/ 

X SX'R2S12 ' 3fl0.2/ 

X SX'LCO ' flO.4/) 

202 FORMAT(SX'KS, CS ' 2fl0.1/) 

203 FORMAT('TRIM'/ 


X 

SX'RISN 




'3F9.1/ 

X 

SX'PHl, 

THl, 

PSl 

(deg)', 

3F9.2/ 

X 

SX'PH2, 

TH2, 

PS2 

(deg)', 

3F9.2/ 

X 

SX'PHC, 

THC, 

LC 

T 

t 

2F9.2, F9.4/ 

X 

SX'VREFN 


? 

t 

3F9.2/ 

X 

SX'FAIN 



? 

t 

3F9.1/ 


/ 

//) 
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301 

302 

303 
305 


X 

X 

X 


5X'FA2N 
5X'MA11 
'INITIAL 


STATES, 


X 

5X 


q - 

ft. 

deg 



X 

5X 

RISNX', 

fl5 

6, 

7x, 

flO 

. 6/ 

X 

5X 

RISNY', 

fl5 

6, 

7x, 

flO 

. 6/ 

X 

5X 

RISNZ', 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

PHI 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

THl 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

PSl ' , 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

PH2 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

TH2 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

PS2 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

PHC 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

THC 

fl5 

6, 

7x, 

fio 

. 6/ 

X 

5X 

LC 

fl5 

6, 

7x, 

fio 

. 6// 

FORMAT ( 5X 

RlSAl 




' 

3f8 . 

FORMAT ( 5X 

KS, CS, 

NC, 

DETG 

' 

2F8 . 


3F9.1/ 

3F9.1// 

INCLUDING INITIAL OFFSETS FROM TRIM'/ 
u - fps,rps '/ 


5X'TAUJ, LCJ, LCJO 


8 (F8.1,3X,2F10.4/25X)) 


FORMAT(5X'KSWRL 

, KDYN,KR2 

, KPS2 ' 

4F8.2) 

FORMAT 

' TRIM' / 




X 

5X'R1SN 


r 

3F9.1/ 

X 

5X'V1SN 


? 

t 

3F9.2/ 

X 

5X'PH1, 

THl, PSl 

(deg) ', 

3F9.2/ 

X 

5X'PH2, 

TH2, PS2 

(deg) ', 

3F9.2/ 

X 

5X'OM22 

(rps) 

? 

t 

3f9.3/ 

X 

5X'DV2SN 

(fps2) 

T 

t 

3f9.3/ 

X 

5X'RA2S2 


T 

t 

3F9.2/ 

X 

5X'VA2SN 


T 

t 

3F9.2/ 

X 

5X'FA11, 

FAIN 

T 

t 

6F9.1/ 

X 

5X'MA11 


T 

t 

3F9.1/ 

X 

5X'FC11, 

FCIN 

T 

t 

6F9.1/ 

X 

5X'MC11 


T 

t 

3F9.1/ 

X 

5X'FA22, 

FA2N 

T 

t 

6F9.1/ 

X 

5X'MA22 


T 

t 

3F9.1/ 

X 

5X'ALF2D 

, BET2D (deg) ', 

2F9.2/ 

X 

5X'TRAIL 

ANGLE (deg) ', 

FIO.2/ 

X 

5X'da, db, dc, dp 

r 

4F9.3) 


580 FORMAT (/ 

X' RUN INFORMATION AND TRIM DATA WRITTEN TO ',A/ 

X' ',1F7.2,' SEC SIMULATION RECORD WRITTEN TO ',A/) 


590 

TYPE *,'error in reading 
WRITE(6,591) I 

data array' 

591 

FORMAT('stopped at record 
CALL closeW(unit) 

GO TO 599 

number',18) 

592 

TYPE *,'error in reading 
WRITE(6,593) I 

data array' 

593 

FORMAT('stopped at record 
CALL closeW(unit) 

number' , 18 ) 

680 

FORMAT(/ 



X' WAKE INFORMATION WRITTEN TO ',A/) 
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END 
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150 



APPENDIX O SLVARS.CMN 


Common block variables for GenHel / Slung Load simulation. Stabilization 
parameters were added. Program by Tyson, P. modified by Ehlers, G. 


C file genhel/batch/sl/slvars. cmn -31 AUG 98 

Peter Tyson 

C Load stabil parameters added 17 Jul 01 by George Ehlers 


C Common blocks for the GenHel/Slung Load Simulation. variables 
required for data output from the No-Load, 

C SLSC, and SLMC cases. The common blocks occurring herein are: 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


/LFLOAT/RLOAD(500) 
/LFIXED/LLOAD(15) 
/XFLOAT/A(500) 
/IFLOAT/IA(500) 
/FCSCOM/FCS(100) 
/ROCOM/RC(440) 
/IRCOM/IRC(20) 
/RCOM/RO(70) 
/CSLLNCMN/LOADNAME 
/CSLCFCMN/CHFILE 
/CSLDFCMN/DATAFILE 


load/sling parameters and variables 
discretes for slung load codes 
Strike variables 
Stike descretes 
ECS 

Wake varbs/params 

■p 

pilot inputs 


REAL 

X PH2DEG, TH2DEG, PS2DEG, ALF2D, BET2D, OM2N(3), V2SN(3), 

X VA2SN(3), VA2S2(3), FA11(3), FA1N(3), MA11(3), FC11(3), 

X FC1N(3), MC11(3), FA22(3), FA2N(3), MA22(3), EC22(3), 

X FC2N(3), MC22(3), FA2W(3), MA2W(3), W2, I2XX, I2YY, I2ZZ, 

X I2XZ, KS, CS, DOQ, LCJ(8), LCJO(8), TAUJ(8), R2SJ2(3,8), 

X RA2P2(3), R2P2S2(3), RA2P02(3), R2P2S02(3), R2PJ2(3,8), 

X TAU, RSN(3), DELRSN(3), R2SN(3), VSN(3), DELVSN(3), 

X DV2SN(3), DELDVSN(3), SSFN(3), ISSFN(3), IISSFN(3), 

X OMCC(3), LCO, LCMLCO, PHCH, THCH, RPHC, RTHC, R2S12(3), 

X RA2S1(3), TOW, FWT, GAM, PSVA, 

X DETG, R1SA1(3), DELPS20, ALFO, PSWO, FREQ, 

X QO(12), DU(12), U(12), DQ(12), Q(12), DV1SN(3), DOMll(3), 

X DOM22(3), DDRA2S2(3), OMll(3), OM22(3), DRA2S2(3), DPHl, 

X DTHl, DPSl, DPH2, DTH2, DPS2, R1SN(3), PHI, THl, PH2, TH2, 

X PS2, RA2S2(3), PHIDEG, THIDEG, PSIDEG, WN(3), G, IIXX, 

X IlYY, IIZZ, IIXZ, DT, Wl, RHO, T, R2D, XMUXH, XMUYH, XMUZH, 

X XMUXS, XMUYS, XMUZS, XLAMDA, CTA, OMEGA, AIF, BIF, ESCG, 

X WLCG, BLCG, RMR, T2N(3,3), TN2(3,3), DALF2D, DBET2D, DANG2D, 
X ALFAO, BETAO, R1S2SN(3), P2N, Q2N, R2N, P21, Q21, R21, 

X CAD_SAVE(4),R2SS2(3),AMGS2(3) ,DV1S1(3) , 

X R20D,KSWRL,KR2,KPS2,KDYN,PWL_TIME(20),PWLCNTRL(20), 

X TEMP, GAINH, CH, SH, CLAH, CLDH, CDOH, CDPH, STALHl, 

X STALH2, RH(3), GAINV, CV, SV, CLAV, CLDV, CDOV, CDPV, 

X STALVl, STALV2, RV(3), Flf, F2f, F3f, mlf, m2f, m3f 
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INTEGER STRETCH, NSTORE, NREC, NC, QUAD, AXIS,STABSYST,ACTIVE 
COMMON /LFLOAT/ RLOAD(500) 

C LOAD EULER ROLL,PITCH AND YAW ANGLES - DEG 


EQUIVALENCE 

(RLOAD( 

1) , 

PH2DEG 

EQUIVALENCE 

(RLOAD( 

2) , 

TH2DEG 

EQUIVALENCE 

(RLOAD( 

3) , 

PS2DEG 


C LOAD ANGLES OF ATTACK AND SIDESLIP - DEG 
EQUIVALENCE (RLOAD( 4), ALF2D ) 

EQUIVALENCE (RLOAD( 5), BET2D ) 

C LOAD ROLL, PITCH AND YAW RATES, INERTIAL FRAME - RAD/SEC 
EQUIVALENCE (RLOAD( 6), OM2N(I) ) 

C LOAD ROLL, PITCH AND YAW RATES, LOAD-HC HEADING COORDS- RAD/SEC 
EQUIVALENCE (RLOAD( 9), P2P ) 

EQUIVALENCE (RLOAD( 10), Q2P ) 

C LOAD VELOCITIES, INERTIAL FRAME - FT/SEC 
EQUIVALENCE (RLOAD( II), V2SN(I) ) 

C LOAD APPARENT WIND VELOCITIES, INERTIAL FRAME - FT/SEC 
EQUIVALENCE (RLOAD( 14), VA2SN(I) ) 

C LOAD APPARENT WIND VELOCITIES, LOAD BODY FRAME - FT/SEC 
EQUIVALENCE (RLOAD( 17), VA2S2(I) ) 

C HELO AERO FORCES, HC BODY AXES 

EQUIVALENCE (RLOAD( 20), FAII(I) ) 

C HELO AERO FORCES, INERTIAL AXES 

EQUIVALENCE (RLOAD( 23), FAIN(I) ) 

C HELO AERO MOMENTS ABOUT HC CG, HC BODY AXES 
EQUIVALENCE (RLOAD( 26), MAII(I) ) 

C HOOK FORCES, HC BODY AXES 

EQUIVALENCE (RLOAD ( 29), ECU (I) ) 

C HOOK FORCES, INERTIAL AXES 

EQUIVALENCE (RLOAD( 32), FCIN(I) ) 

C HOOK MOMENTS ABOUT HC CG, HC BODY AXES 
EQUIVALENCE (RLOAD( 35), MCII(I) ) 

C LOAD AERO FORCES, LOAD BODY AXES 

EQUIVALENCE (RLOAD( 38), FA22(I) ) 

C LOAD AERO FORCES, INERTIAL AXES 

EQUIVALENCE (RLOAD( 41), FA2N(I) ) 

C LOAD AERO MOMENTS ABOUT LOAD CG, LOAD BODY AXES 
EQUIVALENCE (RLOAD( 44), MA22(I) ) 

C SLING FORCES, LOAD BODY AXES 

152 



EQUIVALENCE (RLOAD( 47), FC22(1) ) 

C SLING FORCE, INERTIAL AXES 

EQUIVALENCE (RLOAD( 50), FC2N(I) ) 

C SLING MOMENTS ABOUT LOAD CG, LOAD BODY AXES 
EQUIVALENCE (RLOAD( 53), MC22(I) ) 

C LOAD AERO FORCES, LOAD APPARENT WIND AXES 
EQUIVALENCE (RLOAD( 56), FA2W(I) ) 

C LOAD AERO MOMENTS ABOUT LOAD CG, LOAD APPARENT WIND AXES 
EQUIVALENCE (RLOAD( 59), MA2W(I) ) 

C LOAD INITIAL YAW RATE 

EQUIVALENCE (RLOAD( 62), R20D ) 

C LOAD DYNAMIC AERODYNAMICS CONSTANTS 
EQUIVALENCE (RLOAD( 63), KSWRL ) 

EQUIVALENCE (RLOAD( 64), KR2 ) 

EQUIVALENCE (RLOAD( 65), KPS2 ) 

EQUIVALENCE (RLOAD( 66), KDYN ) 

C RLOAD( 67) - ( 69) EMPTY 

C LOAD WEIGHT (POUNDS) 

EQUIVALENCE (RLOAD( 70), W2 ) 

C LOAD XX, YY, ZZ, AND XZ MOMENTS OF INERTIA - SLUG-FT2 
EQUIVALENCE (RLOAD( 71), I2XX ) 

EQUIVALENCE (RLOAD( 72), I2YY ) 

EQUIVALENCE (RLOAD( 73), I2ZZ ) 

EQUIVALENCE (RLOAD( 74), I2XZ ) 

C SLING SPRING CONSTANT 

EQUIVALENCE (RLOAD( 75), KS ) 

C SLING DAMPING CONSTANT 

EQUIVALENCE (RLOAD( 76), CS ) 

C LOAD DRAG OVER DYNAMIC PRESSURE 

EQUIVALENCE (RLOAD( 77), DOQ ) 

C SLING CABLE LENGTH (I TO 8 LEGS) 

EQUIVALENCE (RLOAD( 78), LCJ(I) ) 

C SLING IC LENGTH (I TO 8 LEGS) 

EQUIVALENCE (RLOAD( 86), LCJO(I) ) 

C SLING CABLE TENSIONS 

EQUIVALENCE (RLOAD( 94), TAUJ(I) ) 

EQUIVALENCE (RLOAD(103), R2SJ2(I,I) ) 

EQUIVALENCE (RLOAD(127), RA2P2(I) ) 

EQUIVALENCE (RLOAD(130), R2P2S2(I) ) 

EQUIVALENCE (RLOAD(133), RA2P02(I) ) 

EQUIVALENCE (RLOAD(136), R2P2S02(I) ) 
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EQUIVALENCE (RLOAD(139), R2PJ2(1,1) ) 


C SLSC VARIABLES 

C SLING TENSION 

EQUIVALENCE (RLOAD(I64), TAU ) 

C SYSTEM MOTION WRT INERTIAL FRAME, FT 
EQUIVALENCE (RLOAD(I65), RSN(I) ) 

C CHANGE IN SYSTEM MOTION WRT INERTIAL FRAME, FT 
EQUIVALENCE (RLOAD(I68), DELRSN(I) ) 

C LOAD MOTION WRT INERTIAL FRAME, FT 

EQUIVALENCE (RLOAD(I7I), R2SN(I) ) 

C SYSTEM VELOCITY WRT INERTIAL FRAME, FT/S 
EQUIVALENCE (RLOAD(I74), VSN(I) ) 

C CHANGE IN SYSTEM VELOCITY WRT INERTIAL FRAME, FT/S 
EQUIVALENCE (RLOAD(I77), DELVSN(I) ) 

C LOAD ACCELERATION WRT INERTIAL FRAME, FT/S**2 
EQUIVALENCE (RLOAD(I80), DV2SN(I) ) 

C CHANGE IN SYSTEM ACCELERATION WRT INERTIAL FRAME, FT/S**2 
EQUIVALENCE (RLOAD(I83), DELDVSN(I) ) 

EQUIVALENCE (RLOAD(I86), SSFN(I) ) 

EQUIVALENCE (RLOAD(I89), ISSFN(I) ) 

EQUIVALENCE (RLOAD(I92), IISSFN(I) ) 

EQUIVALENCE (RLOAD(I95), OMCC(I) ) 

EQUIVALENCE (RLOAD(I98), LCO ) 

EQUIVALENCE (RLOAD(200), LCMLCO ) 

EQUIVALENCE (RLOAD(20I), PHCH ) 

EQUIVALENCE (RLOAD(202), THCH ) 

EQUIVALENCE (RLOAD(203), RPHC ) 

EQUIVALENCE (RLOAD(204), RTHC ) 

C LOCATION VECTOR, FROM HC CG TO LOAD CG, INERTIAL AXES 
EQUIVALENCE (RLOAD(205), RIS2SN(I) ) 

C LOCATION VECTOR 

EQUIVALENCE (RLOAD(240), R2SI2(I) ) 

C LOCATION VECTOR, LOAD C.G. FROM HC HOOK, HC BODY AXES 
EQUIVALENCE (RLOAD(243), RA2SI(I) ) 

C HELICOPTER TAKEOFF WEIGHT 

EQUIVALENCE (RLOAD(246), TOW ) 

C HELICOPTER TAKEOFF FUEL WEIGHT 

EQUIVALENCE (RLOAD(247), FWT ) 

EQUIVALENCE (RLOAD(248), GAM ) 

EQUIVALENCE (RLOAD(249), PSVA ) 

EQUIVALENCE (RLOAD(250), DETG ) 
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EQUIVALENCE (RLOAD(251), RlSAl(l) ) 

EQUIVALENCE (RLOAD(254), DELPS20 ) 

EQUIVALENCE (RLOAD(255), ALFO ) 

EQUIVALENCE (RLQAD(256), PSWO ) 

EQUIVALENCE (RLQAD(257), FREQ ) 

C DYNAMIC AERODYNAMICS PROPORTIONALITY FACTOR 
EQUIVALENCE (RLOAD(258), DYNAMIC ) 

C ANGLE OF ATTACK, SIDESLIP AND TOTAL ANGULAR RATE OF CHANGE 
EQUIVALENCE (RLOAD(259), DALF2D ) 

EQUIVALENCE (RLOAD(260), DBET2D ) 

EQUIVALENCE (RLOAD(26I), DANG2D ) 

C FORCE ON LOAD DUE TO ANGULAR RATES OF CHANGE 
EQUIVALENCE (RLOAD(262), FDALF2D ) 

EQUIVALENCE (RLOAD(263), FDBET2D ) 

EQUIVALENCE (RLOAD(264), FDANG2D ) 

C QUADRANT I ANGLE OF ATTACK AND SIDESLIP FOR LOAD 
EQUIVALENCE (RLOAD(265), ALFAO ) 

EQUIVALENCE (RLOAD(266), BETAO ) 

C LOAD MOTION, INERTIAL AXES 

EQUIVALENCE (RLOAD(267), P2N ) 

EQUIVALENCE (RLOAD(268), Q2N ) 

EQUIVALENCE (RLOAD(269), R2N ) 

C LOAD MOTION, HC BODY AXES 

EQUIVALENCE (RLOAD(270), P2I ) 

EQUIVALENCE (RLOAD(27I), Q2I ) 

EQUIVALENCE (RLOAD(272), R2I ) 

C stabilizing control (feedfwd (cad-save) and feedback) frm pilot.f 

C load cg-to-accelerometer location and load accelerometer signals 
EQUIVALENCE (RLOAD(273), DELXAAD) 

EQUIVALENCE (RLOAD(274), DELXBAD) 

EQUIVALENCE (RLOAD(275), DELXPAD) 

EQUIVALENCE (RLOAD(276), DELXCAD) 

EQUIVALENCE (RLOAD(277), CAD_SAVE(1)) 

EQUIVALENCE (RLOAD(281), R2SS2(1)) 

EQUIVALENCE (RLOAD(284), AMGS2(1)) 

C rload(287-288) empty 

EQUIVALENCE (RLOAD(289), QO(l) ) 

C state array equivalences for integration 

C du = {dvlsn(3), domll(3), dom22(3), ddra2s2(3)} 

C u = { vlsn(3), omll(3), om22(3), dra2s2(3)} 

C q = { rlsn(3), phl,thl,psl, ph2,th2,ps2, ra2s2(3)} 

EQUIVALENCE (RLOAD(301), DU(12) ) 

EQUIVALENCE (RLOAD(321), U(12) ) 

EQUIVALENCE (RLOAD(341), DQ(12) ) 

EQUIVALENCE (RLOAD(361), Q(12) ) 

EQUIVALENCE (RLOAD(362), DVlSl(l) ) 
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C piece-wise linear control input arrays: 370-399 
EQUIVALENCE (RLOAD(370), PWL_TIME(1)) 
EQUIVALENCE (RLOAD(390), PWLCNTRL(I)) 


C Load Stabilization Parameters 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RLOAD(460), FIV) 
(RLOAD(461), F2V) 
(RLOAD(462), F3V) 
(RLOAD(463), FIH) 
(RLOAD(464), F2H) 
(RLOAD(465), F3H) 


EQUIVALENCE (RLOAD(470), ACTIVE) 
EQUIVALENCE (RLOAD(471), TEMP) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RLOAD(475), GAINH) 
(RLOAD(476), CH) 
(RLOAD(477), SH) 
(RLOAD(478), CLAH) 
(RLOAD(479), CLDH) 
(RLOAD(480), CDOH) 
(RLOAD(481), CDPH) 
(RLOAD(482), STALHl) 
(RLOAD(483), STALH2) 
(RLOAD(484), RH(1)) 
(RLOAD(485), RH(2)) 
(RLOAD(486), RH(3)) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RLOAD(487), GAINV) 
(RLOAD(488), CV) 
(RLOAD(489), SV) 
(RLOAD(490), CLAV) 
(RLOAD(491), CLDV) 
(RLOAD(492), CDOV) 
(RLOAD(493), CDPV) 
(RLOAD(494), STALVl) 
(RLOAD(495), STALV2) 
(RLOAD(496), RV(1)) 
(RLOAD(497), RV(2)) 
(RLOAD(498), RV(3)) 


C HC ACCELERATIONS, INERTIAL AXES - FT/S2 
EQUIVALENCE (DU( 1), DVlSN(l) ) 


C HC BODY ROLL, PITCH AND YAW ACCELERATIONS - RAD/SEC2 
EQUIVALENCE (DU( 4), DOMll(l) ) 

C LOAD BODY ROLL, PITCH AND YAW ACCELERATIONS - RAD/SEC2 
EQUIVALENCE (DU( 7), DOM22(l) ) 


C STRETCH COORDS, HOOK TO LOAD CG LINE SEGMENT COORDS 
EQUIVALENCE (DU(10), DDRA2S2(1) ) 


C HC BODY ROLL, PITCH AND YAW RATES - RAD/SEC 
EQUIVALENCE (U( 4), OMll(l) ) 
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C LOAD BODY ROLL, PITCH AND YAW RATES - RAD/SEC 
EQUIVALENCE (U( 7), OM22(I) ) 

C FIRST DERIVATIVE, HOOK TO LOAD CG LINE SEGMENT 
EQUIVALENCE (U(I0), DRA2S2(I) ) 


C HC EULER ROLL, PITCH AND 
EQUIVALENCE (DQ( 4), 
EQUIVALENCE (DQ( 5), 
EQUIVALENCE (DQ ( 6), 


YAW RATES - RAD/SEC 
DPHI ) 

DTHI ) 

DPSI ) 


C LOAD EULER ROLL, PITCH AND YAW RATES - RAD/SEC 
EQUIVALENCE (DQ( 7), DPH2 ) 

EQUIVALENCE (DQ( 8), DTH2 ) 

EQUIVALENCE (DQ( 9), DPS2 ) 


C HC INERTIAL POSITION VECTOR 

EQUIVALENCE (Q( I), RISN(I) ) 

C HC EULER ROLL, PITCH AND YAW ANGLES - RAD 
EQUIVALENCE (Q( 4), PHI ) 

EQUIVALENCE (Q( 5), THI ) 

C Note: PSI included separately where needed 

C LOAD EULER ROLL, PITCH AND YAW ANGLES - RAD 
EQUIVALENCE (Q( 7), PH2 ) 

EQUIVALENCE (Q( 8), TH2 ) 

EQUIVALENCE (Q( 9), PS2 ) 

C HQOK TO LOAD CG LINE SEGMENT, LOAD BODY AXES 
EQUIVALENCE (Q(10), RA2S2(1) ) 

C STRIKE Variables 

C Used by: GHSLMC, GHSLMC_IC, CONEXAERO, NRT_UNC3_OUT 
COMMON /XFLOAT/ A(500) 


EQUIVALENCE 

(A 

( 1) , 

PHIDEG 

EQUIVALENCE 

(A 

( 2) , 

THIDEG 

EQUIVALENCE 

(A 

( 3) , 

PSIDEG 

EQUIVALENCE 

(A 

( 76), 

WN (1) 

EQUIVALENCE 

(A 

( 97), 

G ) 

EQUIVALENCE 

(A 

(116) , 

IIXX ) 

EQUIVALENCE 

(A 

(117) , 

IlYY ) 

EQUIVALENCE 

(A 

(118) , 

IIZZ ) 

EQUIVALENCE 

(A 

(119) , 

IIXZ ) 

EQUIVALENCE 

(A 

(168) , 

DT ) 

EQUIVALENCE 

(A 

(183) , 

RHO ) 

EQUIVALENCE 

(A 

(209), 

SOUND 

EQUIVALENCE 

(A 

(303) , 

T ) 

EQUIVALENCE 

(A 

(359) , 

R2D ) 


C STRIKE Switches 
C Used by: GHSLMC, CONEXAERO 
COMMON /IFIXED/ IA(250) 
EQUIVALENCE (IA(1), IMODE ) 
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C Variables for data output 

C Used by: NRT_UNC3_0UT 

COMMON /FCSCOM/ FCS(IOO) 

EQUIVALENCE(FCS(16), RSAS) 

EQUIVALENCE(FCS(17), PSAS) 

EQUIVALENCE(FCS(18), YSAS) 

EQUIVALENCE(FCS(41), DMIXA) 

EQUIVALENCE(FCS(42), DMIXB) 

EQUIVALENCE(FCS(43), DMIXC) 

EQUIVALENCE(FCS(44), DMIXP) 

EQUIVALENCE(FCS(49), PSFWD) 

EQUIVALENCE(FCS(50), PSAFT) 

EQUIVALENCE(FCS(51), PSLAT) 

EQUIVALENCE(FCS(52), PSTR) 

C Variables for wake computations and locations 

C Used by: CONEXAERO, NRT_UNC3_OUT 
COMMON /ROCOM/ RC(440) 

EQUIVALENCE (RC( 51), XMUXH ) 

EQUIVALENCE (RC( 52), XMUYH ) 

EQUIVALENCE (RC( 53), XMUZH ) 

EQUIVALENCE (RC( 54), XMUXS ) 

EQUIVALENCE (RC( 55), XMUYS ) 

EQUIVALENCE (RC( 56), XMUZS ) 

EQUIVALENCE (RC( 70), XLAMDA ) 

EQUIVALENCE (RC( 71), CTA ) 

EQUIVALENCE (RC( 80), AIF ) 

EQUIVALENCE (RC( 81), BIF ) 

EQUIVALENCE (RC(117), OMEGA ) 

EQUIVALENCE (RC(218), FSCG ) 

EQUIVALENCE (RC(219), WLCG ) 

EQUIVALENCE (RC(220), BLCG ) 

EQUIVALENCE (RC(221), RMR ) 

EQUIVALENCE (RC(223), W1 ) 

EQUIVALENCE (RC(280), WBLADE ) 

COMMON /IRCOM/ IRC(20) 

EQUIVALENCE (IRC(10), NBS) 

C Control History variables 

C Used by: NRT_UNC3_OUT, PILOT 
COMMON /RCON/ RO(70) 

EQUIVALENCE (RO(13), XA ) 

EQUIVALENCE (RO(14), XAAD ) 

EQUIVALENCE (RO(25), XB ) 

EQUIVALENCE (RO(26), XBAD ) 

EQUIVALENCE (RO(37), XP ) 

EQUIVALENCE (RO(38), XPAD ) 

EQUIVALENCE (RO( 1), XC ) 

EQUIVALENCE (RO( 2), XCAD ) 


COMMON /LFIXED/ LLOAD(15) 
EQUIVALENCE (LLOAD( 1), STRETCH ) 
EQUIVALENCE (LLOAD( 2), NSTORE ) 
EQUIVALENCE (LLOAD( 3), NC ) 
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EQUIVALENCE (LLOAD( 4), lAERSL ) 
EQUIVALENCE (LLOAD( 5), ILOAD ) 
EQUIVALENCE (LLOAD( 6), IPILOT ) 
EQUIVALENCE (LLOAD( 7), IWAKE ) 
EQUIVALENCE (LLOAD( 8), ISWIRL ) 
EQUIVALENCE (LLOAD( 9), IDATA ) 
EQUIVALENCE (LLOAD(10), QUAD ) 
EQUIVALENCE (LLOAD(II), AXIS ) 
EQUIVALENCE (LLOAD(12), NREC ) 
EQUIVALENCE (LLOAD(13), STABSYST) 
EQUIVALENCE (LLOAD(15), ACTIVE) 


C Load Description 

C Used by: GHSL_INIT, NRT_UNC3_OUT, NRT_UNC3_IN 
CHARACTER*40 LOADNAME, CHFILE, DATAFILE 
COMMON /CSLLNCMN/ LOADNAME 
COMMON /CSLCFCMN/ CHFILE 
COMMON /CSLDFCMN/ DATAFILE 
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APPENDIX P STABILIZER RESULTS 


Simulation results of passive and active stabilization systems of various areas. 
Plotted are yaw rate (R2) in feet per second versus time in seconds. Appendix P by 
Ehlers, G. 


Passive Stabilizer 
1X3 


Thu Sep 13 16:56:12 2001 


0.00 20.00 
TIME.80{00:00:00.0200) 



40.00 


R2.60 


0.00 20.00 
TIME.70(00:00:00.0200) 


40.00 



60.00 


R2.70 



0.00 • 20.00 
TiME.80(00:00:00.0200) 


40.00 


60.00 


0.00 20.00 
TIME.90(00:00:00.0200) 
File=3_60_p.xp; Signal Suffix=.60: Date= 
File=3_70_p.xp; Signal Suffix=[none]; Date= 



60.00 


R2.90 
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TIME.120(00;00:00.i 


i.xp; Signal Suffix=.60; Date= 
i.xp; Signal Suffix=[none]; Date= 
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Thu Sep13 16:57.-59 2001 




D 20.00 , 40.00 60.00 

TIME.70{00:00:00.0200) 



3 20.00 40.00 60.00 

TIME.80(00:00:00.0200) 



20.00 40.00 

TIME.90(00:00:00.0200) 

Signal Suffix=.60; Date= 

Signal Suffix=.70; Date= 


60.00 
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Thu Sep 13 19:15:13 2001 

Passive Stabilizer 
3X4 



0.00 20.00 40.00 60.00 

TIME.100(00:00:00.0200) 



0.00 20.00 40.00 60.00 

TIME.110(00:00:00.0200) 



0.00 20.00 40.00 60.00 

TIME.120(00:00:00.0200) 


File=12_60_p.xp; Signal Suftix=.60; Date= 

File=12_70_p.xp; Signal Sutfix=.70; Date= 
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Passive Stabilize 
3X5 

40.00 - 
20.00 - 
0 . 00 - 
- 20.00 - 
-40.00 - 

O.OC 

40.00 - 
20.00 - 
0 . 00 - 
- 20.00 - 
-40.00 - 

O.OC 

200.0 - 
100.0 - 
0 . 0 “ 

- 100.0 - 

O.OC 


File=15_60_p.xp; 
File=15_70_p.xp; 


























































Thu Sep 13 16:39:37 2001 


Passive Stabilizer 
4X5 



TIME.100(00:00:00,0200) 



0.00 20.00 
TIME.110(00:00:00.0200) 


40.00 


60.00 



0.00 20.00 40.00 60.00 

TIME.120(00:00:00.0200) 


File=20_60_p.xp; Signal Suffix=,60; Date= 
File=20_70_p.xp; Signal Suffix=.70; Date= 
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